(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    252032,       6092]
NotebookOptionsPosition[    245175,       5909]
NotebookOutlinePosition[    245555,       5925]
CellTagsIndexPosition[    245512,       5922]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Not Driven but Damped", "Section"],

Cell["\<\
Consider a variety of initial conditions for the damped but not driven case.  \
First a condiotns that flows to the origin but is very near the seperatrix \
\>", "Text",
 CellChangeTimes->{{3.468876597767*^9, 3.4688766671949997`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"\[Pi]", "+", "1.95"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, 3.468855115584*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]1", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol1", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468855137976*^9, 3.4688551490950003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Theta]1", "[", "t", "]"}], ",", 
         RowBox[{
          RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}], ",", 
         RowBox[{
          RowBox[{"\[Theta]1", "''"}], "[", "t", "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "120"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468855145861*^9, 
  3.468855164899*^9}, {3.468855199553*^9, 3.468855283342*^9}, {
  3.469193713138*^9, 3.469193714698*^9}}],

Cell[BoxData[
 RowBox[{"pp1", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.468853950534*^9, 3.468853962612*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]1", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]1", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0wAkvd+b
  "]],

Cell["Now just into the other basin of attraction", "Text",
 CellChangeTimes->{{3.468876692602*^9, 3.468876703506*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"\[Pi]", "+", "1.97"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.46885574862*^9, 3.468855754834*^9}}],

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol2", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}}],

Cell[BoxData[
 RowBox[{"pp2", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853970908*^9, 3.4688539779960003`*^9}, {3.468855767934*^9, 
   3.4688557684370003`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0yWTVbaB6FdqS8E0AHRW6dg=
  "]],

Cell["Now explore the first basin some more", "Text",
 CellChangeTimes->{{3.46887672812*^9, 3.4688767488780003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"\[Pi]", "+", "1.7"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}}],

Cell[BoxData[
 RowBox[{"sol3", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]3", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol3", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}}],

Cell[BoxData[
 RowBox[{"pp3", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]3", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]3", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]3", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]3", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D06cXau4B0Vcr1oJpAH0Q6pM=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"\[Pi]", "+", "1."}]}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468854066715*^9, 3.468854068851*^9}, {3.468855869141*^9, 
   3.4688558701400003`*^9}}],

Cell[BoxData[
 RowBox[{"sol4", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468854071725*^9, 
   3.468854072828*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]4", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol4", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468854075715*^9, 3.468854081026*^9}}],

Cell[BoxData[
 RowBox[{"pp4", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688540843900003`*^9, 
   3.4688540911099997`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]4", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]4", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D08bGiw+DaI+HUkdANABvUulf
  "]],

Cell["Next consider the symmetric initial conditions ", "Text",
 CellChangeTimes->{{3.468876781085*^9, 3.468876798564*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "-", "1.95"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468854133743*^9, 3.468854136967*^9}, {3.468854236217*^9, 
   3.4688542736470003`*^9}, {3.4688543805369997`*^9, 3.468854381233*^9}, {
   3.4688544222790003`*^9, 3.46885442315*^9}, {3.468854457358*^9, 
   3.468854550031*^9}, {3.468854676752*^9, 3.468854680288*^9}, {
   3.468854769067*^9, 3.468854926354*^9}, {3.468855938193*^9, 
   3.468855945057*^9}}],

Cell[BoxData[
 RowBox[{"sol5", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688541407530003`*^9, 
   3.468854141377*^9}, {3.468854589527*^9, 3.4688545910550003`*^9}, {
   3.468854649836*^9, 3.4688546501870003`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]5", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol5", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
   3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
   3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
   3.4688541440299997`*^9, 3.468854153541*^9}, 3.468854196051*^9}],

Cell[BoxData[
 RowBox[{"pp5", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]5", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]5", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Green", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468854156498*^9, 
   3.468854169881*^9}, {3.4688545983450003`*^9, 3.468854600344*^9}, {
   3.4688546694370003`*^9, 3.468854669844*^9}, {3.4688559598120003`*^9, 
   3.4688559626029997`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]5", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]5", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D08bGiw+DaI+HUkdAdJ6QtuoPIH164VUwDQBNMPKK

  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "-", "1.7"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856002349*^9, 3.468856005157*^9}}],

Cell[BoxData[
 RowBox[{"sol6", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856024509*^9, 
   3.468856025532*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]6", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol6", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856028795*^9, 3.4688560337860003`*^9}}],

Cell[BoxData[
 RowBox[{"pp6", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]6", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]6", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Green", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856037215*^9, 
   3.4688560533970003`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0wIRha4/gXSB7TMwDQBlbOiI
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "-", "1."}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}}],

Cell[BoxData[
 RowBox[{"sol7", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]7", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol7", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}}],

Cell[BoxData[
 RowBox[{"pp7", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]7", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]7", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Green", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]7", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]7", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0x4Pz3n+vAFyt60XiAYAeLvp4w==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{
    RowBox[{"-", "\[Pi]"}], "-", "1.97"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}, {3.468856147244*^9, 
   3.46885614762*^9}}],

Cell[BoxData[
 RowBox[{"sol8", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}, {3.4688561506940002`*^9, 3.468856151341*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]8", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol8", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}, {3.468856153276*^9, 
  3.468856157043*^9}}],

Cell[BoxData[
 RowBox[{"pp8", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]8", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]8", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}, {3.468856159255*^9, 3.468856174558*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]8", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]8", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0/PeH/f9CaS3nDDyA9EAfiPqLw==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"-", "1.875"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}, {3.468856147244*^9, 
   3.46885614762*^9}, {3.468856274667*^9, 3.468856279218*^9}, {
   3.468856336711*^9, 3.468856422314*^9}}],

Cell[BoxData[
 RowBox[{"sol9", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}, {3.4688561506940002`*^9, 3.468856151341*^9}, {
   3.468856285876*^9, 3.468856286716*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]9", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol9", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}, {3.468856153276*^9, 
  3.468856157043*^9}, {3.468856289929*^9, 3.4688562937130003`*^9}}],

Cell[BoxData[
 RowBox[{"pp9", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]9", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]9", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Purple", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}, {3.468856159255*^9, 3.468856174558*^9}, {
   3.4688563000769997`*^9, 3.468856306892*^9}, {3.46885649333*^9, 
   3.4688564949449997`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]9", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]9", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0xIsk4J+AukIS4lgEA0AXg3njg==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{"3", 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", 
   RowBox[{"-", "1.92"}]}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}, {3.468856147244*^9, 
   3.46885614762*^9}, {3.468856274667*^9, 3.468856279218*^9}, {
   3.468856336711*^9, 3.468856422314*^9}, {3.468856567394*^9, 
   3.468856569185*^9}, {3.468856631974*^9, 3.468856667972*^9}}],

Cell[BoxData[
 RowBox[{"sol10", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}, {3.4688561506940002`*^9, 3.468856151341*^9}, {
   3.468856285876*^9, 3.468856286716*^9}, {3.468856571867*^9, 
   3.468856572899*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]10", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol10", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}, {3.468856153276*^9, 
  3.468856157043*^9}, {3.468856289929*^9, 3.4688562937130003`*^9}, {
  3.468856575257*^9, 3.4688565794560003`*^9}}],

Cell[BoxData[
 RowBox[{"pp10", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]10", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]10", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Green", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}, {3.468856159255*^9, 3.468856174558*^9}, {
   3.4688563000769997`*^9, 3.468856306892*^9}, {3.46885649333*^9, 
   3.4688564949449997`*^9}, {3.468856581692*^9, 3.468856599099*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]10", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]10", "[", "t", "]"}], "]"}]}]}], "}"}]}], 
         "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D01MkEiJ+Aul3NdvBNABu4+lv
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", "1.875"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}, {3.468856147244*^9, 
   3.46885614762*^9}, {3.468856274667*^9, 3.468856279218*^9}, {
   3.468856336711*^9, 3.468856422314*^9}, {3.468856741568*^9, 
   3.468856746072*^9}}],

Cell[BoxData[
 RowBox[{"sol11", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}, {3.4688561506940002`*^9, 3.468856151341*^9}, {
   3.468856285876*^9, 3.468856286716*^9}, {3.4688567490810003`*^9, 
   3.468856749736*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]11", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol11", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}, {3.468856153276*^9, 
  3.468856157043*^9}, {3.468856289929*^9, 3.4688562937130003`*^9}, {
  3.468856752591*^9, 3.468856756686*^9}}],

Cell[BoxData[
 RowBox[{"pp11", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]11", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]11", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Purple", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}, {3.468856159255*^9, 3.468856174558*^9}, {
   3.4688563000769997`*^9, 3.468856306892*^9}, {3.46885649333*^9, 
   3.4688564949449997`*^9}, {3.468856759179*^9, 3.4688567666099997`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]11", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]11", "[", "t", "]"}], "]"}]}]}], "}"}]}], 
         "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D0+9q7GN/AulOxwYwDQBy3Ok/
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", 
   RowBox[{
    RowBox[{"-", "3"}], 
    RowBox[{"\[Pi]", "/", "2"}]}]}], ";", 
  RowBox[{"\[Theta]D0", "=", "1.92"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", "1"}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468856071401*^9, 3.4688560730889997`*^9}, {3.468856147244*^9, 
   3.46885614762*^9}, {3.468856274667*^9, 3.468856279218*^9}, {
   3.468856336711*^9, 3.468856422314*^9}, {3.468856567394*^9, 
   3.468856569185*^9}, {3.468856631974*^9, 3.468856667972*^9}, {
   3.4688567796140003`*^9, 3.468856783413*^9}}],

Cell[BoxData[
 RowBox[{"sol12", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.468856077834*^9, 
   3.468856078641*^9}, {3.4688561506940002`*^9, 3.468856151341*^9}, {
   3.468856285876*^9, 3.468856286716*^9}, {3.468856571867*^9, 
   3.468856572899*^9}, {3.468856787943*^9, 3.468856788751*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]12", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol12", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
  3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
  3.468853775115*^9}, {3.468853878565*^9, 3.4688538854449997`*^9}, {
  3.468856083223*^9, 3.468856086959*^9}, {3.468856153276*^9, 
  3.468856157043*^9}, {3.468856289929*^9, 3.4688562937130003`*^9}, {
  3.468856575257*^9, 3.4688565794560003`*^9}, {3.468856791909*^9, 
  3.468856794916*^9}}],

Cell[BoxData[
 RowBox[{"pp12", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]12", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]12", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "7.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.468856089916*^9, 
   3.468856105402*^9}, {3.468856159255*^9, 3.468856174558*^9}, {
   3.4688563000769997`*^9, 3.468856306892*^9}, {3.46885649333*^9, 
   3.4688564949449997`*^9}, {3.468856581692*^9, 3.468856599099*^9}, {
   3.468856798641*^9, 3.4688568184309998`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]12", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]12", "[", "t", "]"}], "]"}]}]}], "}"}]}], 
         "}"}], "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "0.5"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D039Wyib9vAFybxiYBgB3TOms
  "]],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "pp1", ",", "pp2", ",", "pp3", ",", "pp4", ",", "pp5", ",", "pp6", ",", 
   "pp7", ",", "pp8", ",", "pp9", ",", "pp10", ",", "pp11", ",", "pp12"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.468856177145*^9, 3.468856207951*^9}, {3.468856437648*^9,
   3.4688564398*^9}, {3.468856608519*^9, 3.4688566192390003`*^9}, {
  3.46885683349*^9, 3.46885683949*^9}}],

Cell["\<\
Note that the separatrix passing thru the hyperbolic points at \[PlusMinus]\
\[Pi].\
\>", "Text",
 CellChangeTimes->{{3.468876855473*^9, 3.468876875519*^9}, {
  3.4688769296540003`*^9, 3.46887694298*^9}, {3.5007591898494987`*^9, 
  3.5007591899375033`*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Driven and Damped", "Section",
 CellChangeTimes->{{3.468856993903*^9, 3.468857001199*^9}, 3.468862832278*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "\[Pi]"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0.9"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, 3.468855115584*^9, {
   3.468857014001*^9, 3.468857018488*^9}, {3.468857072519*^9, 
   3.468857083652*^9}, 3.4688628322790003`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol1", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]1", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol1", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468855137976*^9, 3.4688551490950003`*^9}, 
   3.4688628322799997`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Theta]1", "[", "t", "]"}], ",", 
         RowBox[{
          RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}], ",", 
         RowBox[{
          RowBox[{"\[Theta]1", "''"}], "[", "t", "]"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "120"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
   3.468853045487*^9, 3.468853055388*^9}, {3.468855145861*^9, 
   3.468855164899*^9}, {3.468855199553*^9, 3.468855283342*^9}, 
   3.468862832282*^9}],

Cell[BoxData[
 RowBox[{"pp1", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]1", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]1", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "120"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "7.5"}], ",", "9.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}], ",", " ", 
        RowBox[{"3", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.468853950534*^9, 3.468853962612*^9}, 
   3.468862832283*^9, {3.4688774688120003`*^9, 3.4688774809630003`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]1", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]1", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4674242498684998`*^9, 3.4674243433615*^9}, {
   3.4674243877650003`*^9, 3.4674245884595003`*^9}, {3.467424691198*^9, 
   3.4674246960220003`*^9}, {3.4674247599814997`*^9, 
   3.4674247663094997`*^9}, {3.467424796465*^9, 3.467424812367*^9}, {
   3.4674248889175*^9, 3.467424945799*^9}, {3.467424981802*^9, 
   3.4674250134224997`*^9}, {3.4674250435945*^9, 3.467425053217*^9}, {
   3.467425104947*^9, 3.467425164115*^9}, {3.4674252603275003`*^9, 
   3.4674252740690002`*^9}, {3.4674255629205*^9, 3.467425598803*^9}, {
   3.4674258987320004`*^9, 3.467425902811*^9}, {3.467475544205*^9, 
   3.467475545074*^9}, {3.4674756646809998`*^9, 3.4674756900769997`*^9}, {
   3.467475725891*^9, 3.467475726653*^9}, {3.467490553038*^9, 
   3.467490553602*^9}, {3.469194137542*^9, 3.469194155634*^9}, {
   3.4691942367799997`*^9, 3.4691942378599997`*^9}, {3.4691943068529997`*^9, 
   3.4691943073859997`*^9}, {3.469194378314*^9, 3.4691943789890003`*^9}, {
   3.46919444894*^9, 3.4691944505950003`*^9}, {3.469194498969*^9, 
   3.469194517017*^9}, {3.469194565189*^9, 3.469194565947*^9}, {
   3.469194628159*^9, 3.4691946287139997`*^9}, 3.4691978348120003`*^9, {
   3.469200231908*^9, 3.4692002518459997`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 58.07432174682617, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 1000}}, Typeset`size$$ = {
    414., {202., 207.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$1490$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$1490$$, 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[{
         Thickness[0.02], 
         Hue[0.8], 
         Line[{{0, 0}, {
            Sin[
             $CellContext`\[Theta]1[$CellContext`t$$]], -Cos[
              $CellContext`\[Theta]1[$CellContext`t$$]]}}]}, Axes -> True, 
        PlotRange -> {{-1, 1}, {-1, 1}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 1000, AnimationRunning -> 
         False, AnimationRate -> 1., 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{468., {245., 250.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4688531162349997`*^9, {3.468853272858*^9, 3.468853285102*^9}, {
   3.468853422988*^9, 3.4688534381540003`*^9}, {3.468853470875*^9, 
   3.468853480182*^9}, {3.468853563823*^9, 3.468853620171*^9}, 
   3.4688539633059998`*^9, 3.4688551262679996`*^9, 3.468855727351*^9, 
   3.468857035583*^9, 3.4688570889519997`*^9, 3.4688628322869997`*^9, {
   3.469194839677*^9, 3.469194843051*^9}, 3.4691949077469997`*^9, 
   3.469194953935*^9, 3.469195001674*^9, {3.469197843108*^9, 
   3.469197852134*^9}, 3.469197919918*^9, {3.469200204593*^9, 
   3.4692002900179996`*^9}, 3.469367319842*^9, {3.5007593317676153`*^9, 
   3.5007593345637755`*^9}, 3.5007593927631044`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 45.435598850250244`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 1000}}, Typeset`size$$ = {
    414., {202., 207.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$714$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$714$$, 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[{
         Thickness[0.02], 
         Hue[0.8], 
         Line[{{0, 0}, {
            Sin[
             $CellContext`\[Theta]1[$CellContext`t$$]], -Cos[
              $CellContext`\[Theta]1[$CellContext`t$$]]}}]}, Axes -> True, 
        PlotRange -> {{-1, 1}, {-1, 1}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 1000, AnimationRunning -> 
         False, AnimationRate -> 1., 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{468., {245., 250.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4688531162349997`*^9, {3.468853272858*^9, 3.468853285102*^9}, {
   3.468853422988*^9, 3.4688534381540003`*^9}, {3.468853470875*^9, 
   3.468853480182*^9}, {3.468853563823*^9, 3.468853620171*^9}, 
   3.4688539633059998`*^9, 3.4688551262679996`*^9, 3.468855727351*^9, 
   3.468857035583*^9, 3.4688570889519997`*^9, 3.4688628322869997`*^9, {
   3.469194839677*^9, 3.469194843051*^9}, 3.4691949077469997`*^9, 
   3.469194953935*^9, 3.469195001674*^9, {3.469197843108*^9, 
   3.469197852134*^9}, 3.469197919918*^9, {3.469200204593*^9, 
   3.4692002900179996`*^9}, 3.469367319842*^9, 3.5007593447073555`*^9, 
   3.5007593903149643`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 75.20404577255249, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 1000}}, Typeset`size$$ = {
    414., {202., 207.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$1347$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$1347$$, 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[{
         Thickness[0.02], 
         Hue[0.8], 
         Line[{{0, 0}, {
            Sin[
             $CellContext`\[Theta]1[$CellContext`t$$]], -Cos[
              $CellContext`\[Theta]1[$CellContext`t$$]]}}]}, Axes -> True, 
        PlotRange -> {{-1, 1}, {-1, 1}}], 
      "Specifications" :> {{$CellContext`t$$, 0, 1000, AnimationRunning -> 
         False, AnimationRate -> 1., 
         AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, 
        SynchronousUpdating -> True, ShrinkingDelay -> 10.}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{468., {245., 250.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4688531162349997`*^9, {3.468853272858*^9, 3.468853285102*^9}, {
   3.468853422988*^9, 3.4688534381540003`*^9}, {3.468853470875*^9, 
   3.468853480182*^9}, {3.468853563823*^9, 3.468853620171*^9}, 
   3.4688539633059998`*^9, 3.4688551262679996`*^9, 3.468855727351*^9, 
   3.468857035583*^9, 3.4688570889519997`*^9, 3.4688628322869997`*^9, {
   3.469194839677*^9, 3.469194843051*^9}, 3.4691949077469997`*^9, 
   3.469194953935*^9, 3.469195001674*^9, {3.469197843108*^9, 
   3.469197852134*^9}, 3.469197919918*^9, {3.469200204593*^9, 
   3.4692002900179996`*^9}, {3.469367325093*^9, 3.469367335885*^9}, 
   3.5007593516757545`*^9, 3.5007593876118097`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "0.9"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.46885574862*^9, 3.468855754834*^9}, {
   3.468857111035*^9, 3.468857136009*^9}, {3.468858345252*^9, 
   3.468858345612*^9}, {3.468859043156*^9, 3.468859043612*^9}, 
   3.468862832289*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sol2", "=", 
  RowBox[{"NDSolve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
        RowBox[{"\[Gamma]", " ", 
         RowBox[{
          RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
        RowBox[{
         SubsuperscriptBox["\[Omega]", "0", "2"], 
         RowBox[{"Sin", "[", 
          RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
       RowBox[{"g", " ", 
        RowBox[{"Cos", "[", 
         RowBox[{
          SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
      RowBox[{
       RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
       "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, 
   3.468862832291*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"\[Theta]", "\[Rule]", 
    TagBox[
     RowBox[{"InterpolatingFunction", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"0.`", ",", "1000.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], 
      "]"}],
     False,
     Editable->False]}], "}"}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.468853769528*^9, 3.468853795152*^9}, 
   3.468855757302*^9, {3.468857120741*^9, 3.468857138009*^9}, 
   3.468857362663*^9, 3.468858348741*^9, 3.468859046002*^9, 3.468862832292*^9,
    3.469195023616*^9, 3.469197952377*^9, 3.469200300513*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
   RowBox[{"sol2", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4680285609035*^9, 3.4680285991455*^9}, {
   3.468853045487*^9, 3.468853055388*^9}, {3.468853771396*^9, 
   3.468853775115*^9}, 3.4688628322939997`*^9}],

Cell[BoxData[
 RowBox[{"pp2", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "200"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853970908*^9, 3.4688539779960003`*^9}, {3.468855767934*^9, 
   3.4688557684370003`*^9}, {3.4688571536280003`*^9, 3.468857155276*^9}, {
   3.468857963006*^9, 3.4688580433529997`*^9}, 3.468862832296*^9}],

Cell["Just last times", "Text",
 CellChangeTimes->{{3.469200329211*^9, 3.4692003323120003`*^9}}],

Cell[BoxData[
 RowBox[{"pp2A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]2", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "100", ",", "200"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853970908*^9, 3.4688539779960003`*^9}, {3.468855767934*^9, 
   3.4688557684370003`*^9}, {3.4688571536280003`*^9, 3.468857155276*^9}, {
   3.468857963006*^9, 3.4688580433529997`*^9}, {3.4688590659110003`*^9, 
   3.468859077182*^9}, 3.468862832303*^9}],

Cell["Take sections", "Text",
 CellChangeTimes->{{3.469200338899*^9, 3.469200341667*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]2", "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]2", "'"}], "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "10", ",", "20"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, 3.468862832308*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284337693583`"}], ",", "1.9335854245137305`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284351494569`"}], ",", "1.9335854241468267`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284356905994`"}], ",", "1.933585424036055`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284358716423`"}], ",", "1.9335854239362915`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284360507287`"}], ",", "1.933585423847908`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284362092328`"}], ",", "1.9335854237701584`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284363476805`"}], ",", "1.933585423702229`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284364689607`"}], ",", "1.933585423642578`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284365752498`"}], ",", "1.9335854235905514`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284366685292`"}], ",", "1.9335854235454326`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.5602284367502139`"}], ",", "1.9335854235050192`"}], 
    "}"}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.468857349776*^9, {3.468857383174*^9, 3.468857411788*^9}, {
   3.468857450994*^9, 3.468857486977*^9}, 3.468858358168*^9, 
   3.468859099151*^9, 3.46886283231*^9, 3.469198034648*^9, 3.469200344968*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab2", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.2"}], ",", "3.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
       RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", " ", 
     FractionBox["1", "1"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468858058208*^9, 
   3.468858064111*^9}, 3.468862832311*^9}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]2", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQAmIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpgGAHtW9Sw=
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "1.07"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}, {3.468857708281*^9, 
   3.46885774483*^9}, {3.46885782573*^9, 3.468857844657*^9}, 
   3.468858135216*^9, {3.46885817663*^9, 3.468858205748*^9}, 
   3.468858278624*^9, 3.468858329717*^9, {3.468859107809*^9, 
   3.468859108184*^9}, {3.468859142926*^9, 3.468859171909*^9}, {
   3.4688592765030003`*^9, 3.4688592776219997`*^9}, {3.468859308462*^9, 
   3.468859309101*^9}, {3.468859396808*^9, 3.4688593970950003`*^9}, {
   3.468859476027*^9, 3.468859476755*^9}, {3.4688599437209997`*^9, 
   3.468859944264*^9}, {3.468859990678*^9, 3.4688600593059998`*^9}, {
   3.468860095832*^9, 3.468860096576*^9}, {3.468860130038*^9, 
   3.4688601424370003`*^9}, {3.468860245024*^9, 3.468860245455*^9}, {
   3.4688603888789997`*^9, 3.468860389535*^9}, {3.4688604271730003`*^9, 
   3.468860427693*^9}, 3.468862832316*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol3", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]3", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol3", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688577526*^9, 
   3.4688577600150003`*^9}, 3.468862832318*^9, {3.4688637042200003`*^9, 
   3.468863704532*^9}, {3.4688637411*^9, 3.468863741506*^9}}],

Cell[BoxData[
 RowBox[{"pp3", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]3", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]3", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "500"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "16.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]", ",", 
        RowBox[{"3", 
         RowBox[{"\[Pi]", "/", "2"}]}], ",", 
        RowBox[{"2", "\[Pi]"}], ",", 
        RowBox[{"5", 
         RowBox[{"\[Pi]", "/", "2"}]}], ",", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"7", 
         RowBox[{"\[Pi]", "/", "2"}]}], ",", 
        RowBox[{"4", "\[Pi]"}], ",", 
        RowBox[{"9", 
         RowBox[{"\[Pi]", "/", "2"}]}], ",", 
        RowBox[{"5", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.468859500278*^9, 3.468859555651*^9}, {
   3.46885959017*^9, 3.468859593076*^9}, {3.468860155881*^9, 
   3.468860215486*^9}, {3.468860260156*^9, 3.468860260788*^9}, 
   3.4688628323199997`*^9}],

Cell["Map onto interval of 2\[Pi] ", "Text",
 CellChangeTimes->{{3.469200441763*^9, 3.469200465493*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]3A", "[", "t_", "]"}], ":=", 
  RowBox[{"Mod", "[", 
   RowBox[{
    RowBox[{"\[Theta]3", "[", "t", "]"}], ",", 
    RowBox[{"2", "\[Pi]"}], ",", 
    RowBox[{
     RowBox[{"-", "\[Pi]"}], " ", 
     RowBox[{"(", "0.9", ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468859825711*^9, 3.4688598627650003`*^9}, {
   3.4688603110109997`*^9, 3.468860324707*^9}, 3.468862832328*^9}],

Cell[BoxData[
 RowBox[{"pp3A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]3A", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]3", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "200", ",", "700"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, 
   3.46886283233*^9}],

Cell["Attractor with double curve - takes sections", "Text",
 CellChangeTimes->{{3.469200483484*^9, 3.469200505257*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab3", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]3A", "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]3", "'"}], "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "20", ",", "30"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, 3.468862832336*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.15271533148547078`"}], ",", "1.9281970068538437`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.3045931020117614`"}], ",", "1.9875005537734323`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.15002329788331537`"}], ",", "1.9265824760448367`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.3114376981697262`"}], ",", "1.9891547291751792`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.148425473266375`"}], ",", "1.9256115382406458`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.31562090303050283`"}], ",", "1.9901341195298572`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.14756455940245594`"}], ",", "1.9250846157317225`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.3179115997833506`"}], ",", "1.99066048619654`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.14712852096838702`"}], ",", "1.9248171813015575`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.31908118136633945`"}], ",", "1.9909265635162101`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.14691537007558786`"}], ",", "1.924685968956403`"}], 
    "}"}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.468858375671*^9, 3.46885839844*^9}, 3.468859416725*^9, 
   3.468859653224*^9, 3.468860083139*^9, 3.4688602365950003`*^9, {
   3.468860346304*^9, 3.4688603625950003`*^9}, 3.468860409902*^9, 
   3.468860460651*^9, 3.4688628323380003`*^9, 3.469195194134*^9, 
   3.469198243369*^9, 3.4692005084779997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab3", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.2"}], ",", "3.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
       RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", " ", 
     FractionBox["1", "1"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, 3.4688628323389997`*^9}],

Cell["2 intersections!", "Text",
 CellChangeTimes->{{3.469200524762*^9, 3.4692005340299997`*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]3", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]3", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBWIQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpiufBn0GUTX2n8F
0yfKyjp+AOmb59rBtCrbzSk/wfIvwTQAmTAVJg==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "1.12"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}, {3.468857708281*^9, 
   3.46885774483*^9}, {3.46885782573*^9, 3.468857844657*^9}, 
   3.468858135216*^9, {3.46885817663*^9, 3.468858205748*^9}, 
   3.468858278624*^9, 3.468858329717*^9, {3.468859107809*^9, 
   3.468859108184*^9}, {3.468859142926*^9, 3.468859171909*^9}, {
   3.4688592765030003`*^9, 3.4688592776219997`*^9}, {3.468859308462*^9, 
   3.468859309101*^9}, {3.468859396808*^9, 3.4688593970950003`*^9}, {
   3.468859476027*^9, 3.468859476755*^9}, {3.4688599437209997`*^9, 
   3.468859944264*^9}, {3.468859990678*^9, 3.4688600593059998`*^9}, {
   3.468860095832*^9, 3.468860096576*^9}, {3.468860130038*^9, 
   3.4688601424370003`*^9}, {3.468860245024*^9, 3.468860245455*^9}, {
   3.4688603888789997`*^9, 3.468860389535*^9}, {3.4688604271730003`*^9, 
   3.468860427693*^9}, {3.468860529167*^9, 3.468860530215*^9}, {
   3.468860596995*^9, 3.4688605974440002`*^9}, 3.4688628323450003`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol4", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]4", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol4", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688577526*^9, 
   3.4688577600150003`*^9}, {3.468860535617*^9, 3.4688605451689997`*^9}, 
   3.4688628323459997`*^9}],

Cell[BoxData[
 RowBox[{"pp4", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "25.3"}], ",", "12.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}], ",", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"4", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.468859500278*^9, 3.468859555651*^9}, {
   3.46885959017*^9, 3.468859593076*^9}, {3.468860155881*^9, 
   3.468860215486*^9}, {3.468860260156*^9, 3.468860260788*^9}, {
   3.468860548067*^9, 3.468860587417*^9}, {3.468860618359*^9, 
   3.468860739416*^9}, {3.468860805092*^9, 3.4688608401870003`*^9}, 
   3.468862832348*^9}],

Cell[BoxData[
 RowBox[{"pp4A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "300", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "24.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.468860781236*^9}, {3.468860847474*^9, 
   3.468860931917*^9}, {3.468861719672*^9, 3.4688618089630003`*^9}, 
   3.468862832354*^9, {3.4688637871540003`*^9, 3.468863788026*^9}}],

Cell[BoxData[
 RowBox[{"pp4A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "300", ",", "329"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "24.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.468860781236*^9}, {3.468860847474*^9, 
   3.468860931917*^9}, {3.468861719672*^9, 3.4688618089630003`*^9}, 
   3.468862832354*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab4", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "30", ",", "50"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468860995565*^9, 
   3.4688610167469997`*^9}, {3.468861880818*^9, 3.468861935807*^9}, {
   3.468861973277*^9, 3.468861991828*^9}, {3.4688620763120003`*^9, 
   3.468862092814*^9}, 3.4688628323599997`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.1465156524423366`"}], ",", "0.9161355172539759`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594200894814742`"}], ",", 
     RowBox[{"-", "0.3669390514413301`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111500051166747`"}], ",", "1.9742779688042362`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.1465411201444`"}], ",", "0.9161553356863794`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594188039923155`"}], ",", 
     RowBox[{"-", "0.3669398958996219`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111498886896207`"}], ",", "1.9742776669317745`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541453005467`"}], ",", "0.9161556716614903`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.59418871367088`"}], ",", 
     RowBox[{"-", "0.36693988400801114`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111498571900217`"}], ",", "1.9742773636761028`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.14654150377175`"}], ",", "0.9161556626135878`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594188678750681`"}], ",", 
     RowBox[{"-", "0.3669399254821078`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.11149818706727`"}], ",", "1.974277524312128`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.1465418922546`"}], ",", "0.9161560327782183`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594188108196565`"}], ",", 
     RowBox[{"-", "0.36693997880921053`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111498766570943`"}], ",", "1.9742776178963495`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541419484687`"}], ",", "0.9161556026183656`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594188534239446`"}], ",", 
     RowBox[{"-", "0.3669399707069394`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111498462204324`"}], ",", "1.9742774110670593`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541404230554`"}], ",", "0.9161555457509698`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "11.594188936075449`"}], ",", 
     RowBox[{"-", "0.36693983459522334`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "12.111498374893255`"}], ",", "1.9742773661817967`"}], 
    "}"}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.468862082788*^9, 3.4688620936610003`*^9}, 
   3.468862832362*^9, 3.469198521256*^9, 3.469200647321*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab4", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "24.2"}], ",", "3.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "8"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "7"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "6"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "5"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "4"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], "\[Pi]"}], ",", 
       RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", " ", 
     FractionBox["1", "1"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861038493*^9, 
   3.468861056652*^9}, 3.468861112203*^9, 3.4688628323640003`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab4A", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]4", "[", 
       RowBox[{"n", " ", "6", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]4", "'"}], "[", 
       RowBox[{"n", " ", "6", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "20", ",", "30"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468860995565*^9, 
   3.4688610167469997`*^9}, {3.468861880818*^9, 3.468861935807*^9}, {
   3.468861973277*^9, 3.468861991828*^9}, 3.468862113533*^9, 3.46886283237*^9}
  ],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541431002831`"}], ",", "0.9161556418616378`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541423084697`"}], ",", "0.916155585931999`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541563664596`"}], ",", "0.9161557164758121`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541462249713`"}], ",", "0.9161556305638333`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541513525746`"}], ",", "0.9161556091159594`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541328325393`"}], ",", "0.9161554889968645`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541472004357`"}], ",", "0.9161556165086414`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541450907945`"}], ",", "0.9161556869838375`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541272295046`"}], ",", "0.9161555337395321`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.146541496471978`"}], ",", "0.9161556529951252`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.1465415967585`"}], ",", "0.9161557007168453`"}], "}"}]}],
   "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.468861005641*^9, 3.468861018234*^9}, 
   3.468861882113*^9, {3.468861914401*^9, 3.468861938591*^9}, {
   3.4688619797320004`*^9, 3.4688619927860003`*^9}, 3.468862119642*^9, 
   3.4688628323710003`*^9, 3.4691985512*^9, 3.469200673967*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab4A", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "24.2"}], ",", "3.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "8"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "7"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "6"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "5"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "4"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], "\[Pi]"}], ",", 
       RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", " ", 
     FractionBox["1", "1"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861038493*^9, 
   3.468861056652*^9}, 3.468861112203*^9, 3.468862124488*^9, 
   3.468862832373*^9}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]4", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]4", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQA2IQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpiufBn0GUTX2n8F
0yfKyjp+AOmb59rBtCrbzSk/wfIvwbTuJs6VINpqSweYBgA59h7N
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", 
   RowBox[{"1", "/", "2"}]}], ";", 
  RowBox[{"g", "=", "1.15"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}, {3.468857708281*^9, 
   3.46885774483*^9}, {3.46885782573*^9, 3.468857844657*^9}, 
   3.468858135216*^9, {3.46885817663*^9, 3.468858205748*^9}, 
   3.468858278624*^9, 3.468858329717*^9, {3.468859107809*^9, 
   3.468859108184*^9}, {3.468859142926*^9, 3.468859171909*^9}, {
   3.4688592765030003`*^9, 3.4688592776219997`*^9}, {3.468859308462*^9, 
   3.468859309101*^9}, {3.468859396808*^9, 3.4688593970950003`*^9}, {
   3.468859476027*^9, 3.468859476755*^9}, {3.4688599437209997`*^9, 
   3.468859944264*^9}, {3.468859990678*^9, 3.4688600593059998`*^9}, {
   3.468860095832*^9, 3.468860096576*^9}, {3.468860130038*^9, 
   3.4688601424370003`*^9}, {3.468860245024*^9, 3.468860245455*^9}, {
   3.4688603888789997`*^9, 3.468860389535*^9}, {3.4688604271730003`*^9, 
   3.468860427693*^9}, {3.468860529167*^9, 3.468860530215*^9}, {
   3.468860596995*^9, 3.4688605974440002`*^9}, {3.468861171059*^9, 
   3.4688611717139997`*^9}, 3.4688628323789997`*^9, {3.4692012764560003`*^9, 
   3.469201278473*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol5", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]5", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol5", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688577526*^9, 
   3.4688577600150003`*^9}, {3.468860535617*^9, 3.4688605451689997`*^9}, {
   3.4688611788450003`*^9, 3.4688611880360003`*^9}, {3.468862181491*^9, 
   3.468862208274*^9}, 3.46886283238*^9, {3.4688635418050003`*^9, 
   3.4688636697019997`*^9}}],

Cell[BoxData[
 RowBox[{"pp5", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]5", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]5", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "26.3"}], ",", "22.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "11"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "10"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "9"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}], ",", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"4", "\[Pi]"}], ",", 
        RowBox[{"5", "\[Pi]"}], ",", 
        RowBox[{"6", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "14"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.468859500278*^9, 3.468859555651*^9}, {
   3.46885959017*^9, 3.468859593076*^9}, {3.468860155881*^9, 
   3.468860215486*^9}, {3.468860260156*^9, 3.468860260788*^9}, {
   3.468860548067*^9, 3.468860587417*^9}, {3.468860618359*^9, 
   3.468860739416*^9}, {3.468860805092*^9, 3.4688608401870003`*^9}, {
   3.468861190672*^9, 3.468861217461*^9}, {3.468861404387*^9, 
   3.468861416594*^9}, {3.468862194285*^9, 3.468862216532*^9}, 
   3.468862832382*^9, {3.4688817359849997`*^9, 3.4688817365290003`*^9}, {
   3.469200998677*^9, 3.469201014243*^9}, {3.469201307741*^9, 
   3.469201308316*^9}}],

Cell[BoxData[
 RowBox[{"pp5A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]5", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]5", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "800", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "6.3"}], ",", "18.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "11"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "10"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "9"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", " ", 
        RowBox[{"2", "\[Pi]"}], ",", " ", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"4", "\[Pi]"}], ",", 
        RowBox[{"5", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.468860781236*^9}, {3.468860847474*^9, 
   3.468860931917*^9}, {3.46886122766*^9, 3.468861304448*^9}, 
   3.468861434946*^9, {3.468862162847*^9, 3.4688621634709997`*^9}, 
   3.468862832388*^9, {3.4692010641940002`*^9, 3.469201187796*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tab5", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]5", "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]5", "'"}], "[", 
       RowBox[{"n", " ", "2", 
        RowBox[{"\[Pi]", "/", 
         SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "80", ",", "100"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468860995565*^9, 
   3.4688610167469997`*^9}, {3.46886132621*^9, 3.468861344145*^9}, {
   3.468861375119*^9, 3.468861375935*^9}, 3.468862832394*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "10.218498646880708`"}], ",", "0.1314389930185429`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "9.957943137834684`"}], ",", "0.3139237824357693`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.291468710119461`"}], ",", "1.50748981753826`"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"1.3748144998007126`", ",", "1.086212635616306`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.04313126469748292`"}], ",", "1.644626457098116`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3147269215473005`"}], ",", "0.5494089039512081`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.21037577599882712`"}], ",", "2.139857402698874`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.618112804169837`", ",", "0.9871105426733003`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.031062750493292`", ",", "1.3481816991147209`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.6467419059071107`", ",", "0.3181729797918283`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.234092575856627`", ",", "1.5698590210963275`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13.859894647557061`", ",", "0.9562788589926909`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.572209313597597`", ",", "0.07741432430038465`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.23833813826333`", ",", "1.9827614575191206`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.1573807570708325`", ",", "1.9528616667049543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.184458904757408`", ",", "1.410480142546098`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.0790550875423521`", ",", 
     RowBox[{"-", "0.3478827503802956`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.030218011309084924`"}], ",", "2.1433439712040676`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.489717521269278`", ",", "0.940853623878126`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1.1501572430101743`", ",", 
     RowBox[{"-", "0.3479145033304651`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "0.07447668118796885`"}], ",", "2.1497538662345392`"}], 
    "}"}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.468861338407*^9, 3.468861345093*^9}, 
   3.4688613770769997`*^9, 3.468862269402*^9, 3.468862832396*^9, 
   3.469198634619*^9, 3.469201204793*^9, 3.4692015256879997`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"tab5", ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "16.2"}], ",", "15.2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
   RowBox[{"Ticks", "->", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "11"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "10"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "9"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "8"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "7"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "6"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "5"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "4"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "3"}], "\[Pi]"}], ",", 
       RowBox[{
        RowBox[{"-", "2"}], "\[Pi]"}], ",", 
       RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
       RowBox[{"2", "\[Pi]"}], ",", 
       RowBox[{"3", "\[Pi]"}], ",", 
       RowBox[{"4", "\[Pi]"}], ",", 
       RowBox[{"5", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
   RowBox[{"BaseStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
      RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", 
    RowBox[{"1", " ", 
     FractionBox["1", "1"]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861038493*^9, 
   3.468861056652*^9}, 3.468861112203*^9, {3.4688613563*^9, 
   3.4688613611949997`*^9}, 3.468861445424*^9, 3.4688628323970003`*^9, {
   3.469201546674*^9, 3.469201609241*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]5A", "[", "t_", "]"}], ":=", 
  RowBox[{"Mod", "[", 
   RowBox[{
    RowBox[{"\[Theta]5", "[", "t", "]"}], ",", 
    RowBox[{"2", "\[Pi]"}], ",", 
    RowBox[{"-", "\[Pi]"}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.468859825711*^9, 3.4688598627650003`*^9}, {
   3.4688603110109997`*^9, 3.468860324707*^9}, {3.4688614696099997`*^9, 
   3.4688614779049997`*^9}, 3.468862832403*^9}],

Cell[BoxData[
 RowBox[{"pp5A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]5A", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]5", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "200", ",", "700"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Blue", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.4688607574300003`*^9}, {3.468861483701*^9, 
   3.468861490724*^9}, 3.468862832406*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tab5A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Theta]5A", "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"\[Theta]5", "'"}], "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "10", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468861512751*^9, 
   3.4688615618599997`*^9}, 3.4688628324110003`*^9, {3.469198745108*^9, 
   3.469198745737*^9}, {3.469198813283*^9, 3.46919881985*^9}}],

Cell[BoxData[
 RowBox[{"ppt5A", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"tab5A", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2"}], ",", "3.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
    RowBox[{"Ticks", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"PointSize", "[", "0.02`", "]"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861528426*^9, 
   3.4688615295290003`*^9}, 3.468862832413*^9, {3.4688633483450003`*^9, 
   3.468863352433*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]5", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]5", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQA2IQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpiufBn0GUTX2n8F
0yfKyjp+AOmb59rBtCrbzSk/wfIvwfScIw27QLTuJt7dIBoARlUfXg==
  "]],

Cell[CellGroupData[{

Cell["", "Subsubsection"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "1.151"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}, {3.468857708281*^9, 
   3.46885774483*^9}, {3.46885782573*^9, 3.468857844657*^9}, 
   3.468858135216*^9, {3.46885817663*^9, 3.468858205748*^9}, 
   3.468858278624*^9, 3.468858329717*^9, {3.468859107809*^9, 
   3.468859108184*^9}, {3.468859142926*^9, 3.468859171909*^9}, {
   3.4688592765030003`*^9, 3.4688592776219997`*^9}, {3.468859308462*^9, 
   3.468859309101*^9}, {3.468859396808*^9, 3.4688593970950003`*^9}, {
   3.468859476027*^9, 3.468859476755*^9}, {3.4688599437209997`*^9, 
   3.468859944264*^9}, {3.468859990678*^9, 3.4688600593059998`*^9}, {
   3.468860095832*^9, 3.468860096576*^9}, {3.468860130038*^9, 
   3.4688601424370003`*^9}, {3.468860245024*^9, 3.468860245455*^9}, {
   3.4688603888789997`*^9, 3.468860389535*^9}, {3.4688604271730003`*^9, 
   3.468860427693*^9}, {3.468860529167*^9, 3.468860530215*^9}, {
   3.468860596995*^9, 3.4688605974440002`*^9}, {3.468861171059*^9, 
   3.4688611717139997`*^9}, 3.4688628323789997`*^9, 3.468862948829*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol6", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]6", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol6", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688577526*^9, 
   3.4688577600150003`*^9}, {3.468860535617*^9, 3.4688605451689997`*^9}, {
   3.4688611788450003`*^9, 3.4688611880360003`*^9}, {3.468862181491*^9, 
   3.468862208274*^9}, 3.46886283238*^9, {3.468862953664*^9, 
   3.4688629621429996`*^9}}],

Cell[BoxData[
 RowBox[{"pp6", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]6", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]6", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "36.3"}], ",", "36.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "11"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "10"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "9"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}], ",", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"4", "\[Pi]"}], ",", 
        RowBox[{"5", "\[Pi]"}], ",", 
        RowBox[{"6", "\[Pi]"}], ",", 
        RowBox[{"7", "\[Pi]"}], ",", 
        RowBox[{"8", "\[Pi]"}], ",", 
        RowBox[{"9", "\[Pi]"}], ",", 
        RowBox[{"10", "\[Pi]"}], ",", 
        RowBox[{"11", "\[Pi]"}], ",", 
        RowBox[{"12", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.468859500278*^9, 3.468859555651*^9}, {
   3.46885959017*^9, 3.468859593076*^9}, {3.468860155881*^9, 
   3.468860215486*^9}, {3.468860260156*^9, 3.468860260788*^9}, {
   3.468860548067*^9, 3.468860587417*^9}, {3.468860618359*^9, 
   3.468860739416*^9}, {3.468860805092*^9, 3.4688608401870003`*^9}, {
   3.468861190672*^9, 3.468861217461*^9}, {3.468861404387*^9, 
   3.468861416594*^9}, {3.468862194285*^9, 3.468862216532*^9}, 
   3.468862832382*^9, {3.468862966001*^9, 3.468863093484*^9}, {
   3.468863212542*^9, 3.468863213244*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pp6", ",", "pp5"}], "]"}]], "Input",
 CellChangeTimes->{{3.468862984676*^9, 3.468862989242*^9}, {3.468863102828*^9,
   3.468863106571*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]6A", "[", "t_", "]"}], ":=", 
  RowBox[{"Mod", "[", 
   RowBox[{
    RowBox[{"\[Theta]6", "[", "t", "]"}], ",", 
    RowBox[{"2", "\[Pi]"}], ",", 
    RowBox[{"-", "\[Pi]"}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.468859825711*^9, 3.4688598627650003`*^9}, {
   3.4688603110109997`*^9, 3.468860324707*^9}, {3.4688614696099997`*^9, 
   3.4688614779049997`*^9}, 3.468862832403*^9, {3.468863150042*^9, 
   3.468863157689*^9}, 3.468863233196*^9}],

Cell[BoxData[
 RowBox[{"pp6A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]6A", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]6", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "200", ",", "700"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.4688607574300003`*^9}, {3.468861483701*^9, 
   3.468861490724*^9}, 3.468862832406*^9, {3.46886316055*^9, 
   3.46886316938*^9}, {3.468863252513*^9, 3.468863252936*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pp5A", ",", "pp6A"}], "]"}]], "Input",
 CellChangeTimes->{{3.468863257242*^9, 3.468863270994*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tab6A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Theta]6A", "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"\[Theta]6", "'"}], "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "10", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468861512751*^9, 
   3.4688615618599997`*^9}, 3.4688628324110003`*^9, {3.4688632991610003`*^9, 
   3.4688633067609997`*^9}, {3.468863442377*^9, 3.4688635048459997`*^9}}],

Cell[BoxData[
 RowBox[{"ppt6A", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"tab6A", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2"}], ",", "3.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
    RowBox[{"Ticks", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"PointSize", "[", "0.02`", "]"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861528426*^9, 
   3.4688615295290003`*^9}, 3.468862832413*^9, {3.468863312027*^9, 
   3.4688633393859997`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"ppt5A", ",", "ppt6A"}], "]"}]], "Input",
 CellChangeTimes->{{3.4688633656280003`*^9, 3.468863384259*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQA2IQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpiufBn0GUTX2n8F
0yfKyjp+AOmb59rBtCrbzSk/wfIvwbRfksReEB20w20fiAYAOOUesA==
  "]]
}, Closed]],

Cell[CellGroupData[{

Cell["Increase coupling more and see periodic again", "Subsubsection",
 CellChangeTimes->{{3.4693770819230003`*^9, 3.469377093979*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]0", "=", "0"}], ";", 
  RowBox[{"\[Theta]D0", "=", "0"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "0"], "=", "1"}], ";", 
  RowBox[{"\[Gamma]", "=", "0.5"}], ";", 
  RowBox[{"g", "=", "1.35"}], ";", 
  RowBox[{
   SubscriptBox["\[Omega]", "D"], "=", 
   RowBox[{"2", "/", "3"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.467841596705*^9, 3.467841751833*^9, {3.4678606728055*^9, 
   3.4678606753824997`*^9}, {3.4678608832904997`*^9, 3.467860883666*^9}, {
   3.467861140986*^9, 3.467861141658*^9}, {3.467906653521*^9, 
   3.467906659006*^9}, {3.4679067469315*^9, 3.4679067673445*^9}, {
   3.4679068282165003`*^9, 3.4679068368570004`*^9}, 3.4679069646324997`*^9, {
   3.4679171801115*^9, 3.46791718571*^9}, {3.4679173367485*^9, 
   3.4679173369055*^9}, 3.4679173798945*^9, {3.4679174573085003`*^9, 
   3.4679174580825*^9}, 3.467917517924*^9, {3.4679180034065*^9, 
   3.4679180046055*^9}, {3.467919220707*^9, 3.4679192313535*^9}, {
   3.467919405164*^9, 3.4679194080345*^9}, {3.4679195475295*^9, 
   3.4679195477135*^9}, {3.467919710981*^9, 3.467919711572*^9}, 
   3.4679203548265*^9, {3.4679209260030003`*^9, 3.4679209262019997`*^9}, {
   3.4679211605179996`*^9, 3.467921182793*^9}, {3.4679217631305*^9, 
   3.4679217643915*^9}, {3.4679245217539997`*^9, 3.4679245505655003`*^9}, {
   3.46802846966*^9, 3.468028511933*^9}, 3.4680285519765*^9, 
   3.4680288580175*^9, {3.468029178826*^9, 3.468029193855*^9}, {
   3.4680292246275*^9, 3.4680292496805*^9}, 3.468029294163*^9, {
   3.468029382799*^9, 3.468029434977*^9}, 3.4680294803780003`*^9, {
   3.468029536988*^9, 3.4680295542825003`*^9}, {3.468029664835*^9, 
   3.4680296658265*^9}, {3.4680301131305*^9, 3.4680301490439997`*^9}, 
   3.4680302945945*^9, {3.4680304101875*^9, 3.4680304104674997`*^9}, {
   3.468030935449*^9, 3.4680309503905*^9}, {3.46803099105*^9, 
   3.4680310040235*^9}, {3.4688527359119997`*^9, 3.468852781068*^9}, {
   3.468852908909*^9, 3.46885292338*^9}, {3.468852969242*^9, 
   3.4688529869849997`*^9}, 3.468853068932*^9, {3.468853761949*^9, 
   3.468853764068*^9}, {3.4688538716619997`*^9, 3.468853872318*^9}, {
   3.468855819271*^9, 3.468855838597*^9}, {3.468857708281*^9, 
   3.46885774483*^9}, {3.46885782573*^9, 3.468857844657*^9}, 
   3.468858135216*^9, {3.46885817663*^9, 3.468858205748*^9}, 
   3.468858278624*^9, 3.468858329717*^9, {3.468859107809*^9, 
   3.468859108184*^9}, {3.468859142926*^9, 3.468859171909*^9}, {
   3.4688592765030003`*^9, 3.4688592776219997`*^9}, {3.468859308462*^9, 
   3.468859309101*^9}, {3.468859396808*^9, 3.4688593970950003`*^9}, {
   3.468859476027*^9, 3.468859476755*^9}, {3.4688599437209997`*^9, 
   3.468859944264*^9}, {3.468859990678*^9, 3.4688600593059998`*^9}, {
   3.468860095832*^9, 3.468860096576*^9}, {3.468860130038*^9, 
   3.4688601424370003`*^9}, {3.468860245024*^9, 3.468860245455*^9}, {
   3.4688603888789997`*^9, 3.468860389535*^9}, {3.4688604271730003`*^9, 
   3.468860427693*^9}, {3.468860529167*^9, 3.468860530215*^9}, {
   3.468860596995*^9, 3.4688605974440002`*^9}, {3.468861171059*^9, 
   3.4688611717139997`*^9}, 3.4688628323789997`*^9, 3.468862948829*^9, {
   3.4693674017139997`*^9, 3.469367447344*^9}, 3.469367482148*^9, {
   3.469367594124*^9, 3.469367622855*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sol6", "=", 
   RowBox[{"NDSolve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"\[Theta]", "''"}], "[", "t", "]"}], "+", 
         RowBox[{"\[Gamma]", " ", 
          RowBox[{
           RowBox[{"\[Theta]", "'"}], "[", "t", "]"}]}], "+", 
         RowBox[{
          SubsuperscriptBox["\[Omega]", "0", "2"], 
          RowBox[{"Sin", "[", 
           RowBox[{"\[Theta]", "[", "t", "]"}], "]"}]}]}], "\[Equal]", 
        RowBox[{"g", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{
           SubscriptBox["\[Omega]", "D"], "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"\[Theta]", "[", "0", "]"}], "\[Equal]", "\[Theta]0"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Theta]", "'"}], "[", "0", "]"}], "\[Equal]", 
        "\[Theta]D0"}]}], "}"}], ",", "\[Theta]", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
     RowBox[{"MaxSteps", "\[Rule]", "500000"}]}], "]"}]}], ";", 
  RowBox[{
   RowBox[{"\[Theta]6", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{"\[Theta]", "[", "t", "]"}], "/.", 
    RowBox[{"sol6", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4680285262365*^9, 3.4680285394585*^9}, {
   3.4680285703585*^9, 3.468028573014*^9}, 3.4680288969895*^9, {
   3.4680290470745*^9, 3.4680290478665*^9}, {3.4680293288145*^9, 
   3.46802933095*^9}, {3.4680296779625*^9, 3.468029679322*^9}, {
   3.4680297339630003`*^9, 3.468029793699*^9}, {3.468029832959*^9, 
   3.468030002321*^9}, {3.4680309622795*^9, 3.4680309640550003`*^9}, {
   3.468031146472*^9, 3.468031148959*^9}, {3.4688527931210003`*^9, 
   3.4688528048310003`*^9}, {3.468852872124*^9, 3.468852894954*^9}, {
   3.46885293219*^9, 3.46885295179*^9}, {3.468853007074*^9, 
   3.468853039137*^9}, {3.468853767967*^9, 3.468853768317*^9}, {
   3.468853874968*^9, 3.468853875535*^9}, {3.4688577526*^9, 
   3.4688577600150003`*^9}, {3.468860535617*^9, 3.4688605451689997`*^9}, {
   3.4688611788450003`*^9, 3.4688611880360003`*^9}, {3.468862181491*^9, 
   3.468862208274*^9}, 3.46886283238*^9, {3.468862953664*^9, 
   3.4688629621429996`*^9}}],

Cell[BoxData[
 RowBox[{"pp6", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]6", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]6", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "86.3"}], ",", "36.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "11"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "10"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "9"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "8"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "7"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "6"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "5"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "4"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "3"}], "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "2"}], "\[Pi]"}], ",", 
        RowBox[{"-", "\[Pi]"}], ",", "0", ",", "\[Pi]", ",", 
        RowBox[{"2", "\[Pi]"}], ",", 
        RowBox[{"3", "\[Pi]"}], ",", 
        RowBox[{"4", "\[Pi]"}], ",", 
        RowBox[{"5", "\[Pi]"}], ",", 
        RowBox[{"6", "\[Pi]"}], ",", 
        RowBox[{"7", "\[Pi]"}], ",", 
        RowBox[{"8", "\[Pi]"}], ",", 
        RowBox[{"9", "\[Pi]"}], ",", 
        RowBox[{"10", "\[Pi]"}], ",", 
        RowBox[{"11", "\[Pi]"}], ",", 
        RowBox[{"12", "\[Pi]"}]}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.468859500278*^9, 3.468859555651*^9}, {
   3.46885959017*^9, 3.468859593076*^9}, {3.468860155881*^9, 
   3.468860215486*^9}, {3.468860260156*^9, 3.468860260788*^9}, {
   3.468860548067*^9, 3.468860587417*^9}, {3.468860618359*^9, 
   3.468860739416*^9}, {3.468860805092*^9, 3.4688608401870003`*^9}, {
   3.468861190672*^9, 3.468861217461*^9}, {3.468861404387*^9, 
   3.468861416594*^9}, {3.468862194285*^9, 3.468862216532*^9}, 
   3.468862832382*^9, {3.468862966001*^9, 3.468863093484*^9}, {
   3.468863212542*^9, 3.468863213244*^9}, {3.46936764354*^9, 
   3.469367653354*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pp6", ",", "pp5"}], "]"}]], "Input",
 CellChangeTimes->{{3.468862984676*^9, 3.468862989242*^9}, {3.468863102828*^9,
   3.468863106571*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]6A", "[", "t_", "]"}], ":=", 
  RowBox[{"Mod", "[", 
   RowBox[{
    RowBox[{"\[Theta]6", "[", "t", "]"}], ",", 
    RowBox[{"2", "\[Pi]"}], ",", 
    RowBox[{"-", "\[Pi]"}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.468859825711*^9, 3.4688598627650003`*^9}, {
   3.4688603110109997`*^9, 3.468860324707*^9}, {3.4688614696099997`*^9, 
   3.4688614779049997`*^9}, 3.468862832403*^9, {3.468863150042*^9, 
   3.468863157689*^9}, 3.468863233196*^9}],

Cell[BoxData[
 RowBox[{"pp6A", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Theta]6A", "[", "t", "]"}], ",", 
      RowBox[{
       RowBox[{"\[Theta]6", "'"}], "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "200", ",", "700"}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.3"}], ",", "3.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", "Red", "}"}]}], ",", 
    RowBox[{"Ticks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "->", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "->", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.4680286449795*^9, 3.4680286850055*^9}, {
   3.4680287633094997`*^9, 3.468028768587*^9}, 3.4680289031945*^9, {
   3.4680290752205*^9, 3.468029075908*^9}, {3.468029338283*^9, 
   3.468029338875*^9}, {3.468030174417*^9, 3.4680302386730003`*^9}, {
   3.4680306396565*^9, 3.4680306624455*^9}, {3.468031030751*^9, 
   3.4680310547320004`*^9}, 3.468031125557*^9, {3.4680312544744997`*^9, 
   3.4680312743035*^9}, {3.4688530827609997`*^9, 3.468853111349*^9}, {
   3.468853193159*^9, 3.468853215678*^9}, {3.468853248796*^9, 
   3.4688532831870003`*^9}, {3.468853387758*^9, 3.4688534372019997`*^9}, {
   3.468853468929*^9, 3.4688534793599997`*^9}, {3.468853562748*^9, 
   3.468853619392*^9}, {3.4688537781359997`*^9, 3.4688537841429996`*^9}, {
   3.468853888401*^9, 3.46885394179*^9}, {3.4688578776280003`*^9, 
   3.468857878835*^9}, {3.468858084816*^9, 3.468858096543*^9}, {
   3.4688581589709997`*^9, 3.4688581605620003`*^9}, {3.468859131843*^9, 
   3.4688591326099997`*^9}, {3.4688594503050003`*^9, 3.468859455145*^9}, {
   3.46885957969*^9, 3.468859627632*^9}, {3.4688598724890003`*^9, 
   3.468859925718*^9}, {3.46886028526*^9, 3.468860285801*^9}, {
   3.4688607572539997`*^9, 3.4688607574300003`*^9}, {3.468861483701*^9, 
   3.468861490724*^9}, 3.468862832406*^9, {3.46886316055*^9, 
   3.46886316938*^9}, {3.468863252513*^9, 3.468863252936*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pp5A", ",", "pp6A"}], "]"}]], "Input",
 CellChangeTimes->{{3.468863257242*^9, 3.468863270994*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tab6A", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Theta]6A", "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}], ",", 
       RowBox[{
        RowBox[{"\[Theta]6", "'"}], "[", 
        RowBox[{"n", " ", "2", 
         RowBox[{"\[Pi]", "/", 
          SubscriptBox["\[Omega]", "D"]}]}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "10", ",", "100"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.468857249308*^9, 3.468857251201*^9}, {3.46885728616*^9, 
   3.468857348133*^9}, {3.468857380652*^9, 3.4688574111940002`*^9}, {
   3.468857445472*^9, 3.468857486389*^9}, {3.468857912574*^9, 
   3.468857924229*^9}, {3.468858375179*^9, 3.468858397817*^9}, {
   3.468859646458*^9, 3.468859646602*^9}, 3.4688600821140003`*^9, {
   3.468860361554*^9, 3.468860361825*^9}, {3.468861512751*^9, 
   3.4688615618599997`*^9}, 3.4688628324110003`*^9, {3.4688632991610003`*^9, 
   3.4688633067609997`*^9}, {3.468863442377*^9, 3.4688635048459997`*^9}}],

Cell[BoxData[
 RowBox[{"ppt6A", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"tab6A", ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.2"}], ",", "3.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.3"}], ",", "2.3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<\[Theta]\>\"", ",", "\"\<\[Omega]\>\""}], "}"}]}], ",", 
    RowBox[{"Ticks", "->", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "\[Pi]"}], ",", 
        RowBox[{
         RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0", ",", 
        RowBox[{"\[Pi]", "/", "2"}], ",", "\[Pi]"}], "}"}], "}"}]}], ",", 
    RowBox[{"BaseStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Red", ",", 
       RowBox[{"PointSize", "[", "0.02`", "]"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", 
     RowBox[{"1", " ", 
      FractionBox["1", "1"]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4680729700895*^9, 3.4680730037244997`*^9}, {
   3.468073046352*^9, 3.4680730499185*^9}, {3.4680736228865*^9, 
   3.4680736230620003`*^9}, {3.468857515335*^9, 3.468857535734*^9}, {
   3.4688575728900003`*^9, 3.468857665814*^9}, {3.468857928087*^9, 
   3.4688579289189997`*^9}, {3.468858125572*^9, 3.4688581281870003`*^9}, {
   3.468858421075*^9, 3.46885842637*^9}, {3.468861528426*^9, 
   3.4688615295290003`*^9}, 3.468862832413*^9, {3.468863312027*^9, 
   3.4688633393859997`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"ppt5A", ",", "ppt6A"}], "]"}]], "Input",
 CellChangeTimes->{{3.4688633656280003`*^9, 3.468863384259*^9}}],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.02`", "]"}], ",", 
       RowBox[{"Hue", "[", "0.8`", "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Sin", "[", 
             RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"Cos", "[", 
              RowBox[{"\[Theta]6", "[", "t", "]"}], "]"}]}]}], "}"}]}], "}"}],
         "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"AnimationRunning", "\[Rule]", "False"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "1.0"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQA2IQfeCUtf20qy8dMya+9gLRj6oqAkC01Za+TBDNEpZW
BuEzlIPoooz/dSA65/nJehDt8bCvGUSX7+tuBdGaMbL9EPMsp4HoPyt3zgLR
cq1r54FoVbbiRSB61cdli0H0ZV+5VSBaZF3zRoj9XXtBtIOp034Qvack9jGI
1t108zmI7skJ550OpLd9vgmmY/rZvNcDadM4JTB94JRoFIg+UeYUC6KFmvck
guiEp1fAtI+54vxtQHqaszGYFogwLP5246XjLs+SUhB96OuMehAt17obTB/z
ju4A0TJROWDai8drIoh+sjQeTFeLyM0C0XZcwWCahyl+AYh26V6wCKJ+2QoQ
fdl3H5huF2vdAKLFbk4D04tcH70A0RadqS8h5k17C7H3PpiufBn0GUTX2n8F
0yfKyjp+AOmb59rBtCrbzSk/wfIvwbRfksReEB20w20fiAYAOOUesA==
  "]]
}, Closed]]
}, Closed]]
},
WindowSize->{1008, 647},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1.1499998569488525`,
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 40, 0, 81, "Section"],
Cell[610, 24, 244, 4, 32, "Text"],
Cell[857, 30, 2131, 39, 33, "Input"],
Cell[2991, 71, 1921, 46, 80, "Input"],
Cell[4915, 119, 843, 23, 33, "Input"],
Cell[5761, 144, 2122, 52, 101, "Input"],
Cell[7886, 198, 1645, 44, 54, "Input"],
Cell[9534, 244, 119, 1, 32, "Text"],
Cell[9656, 247, 2195, 40, 33, "Input"],
Cell[11854, 289, 1682, 39, 59, "Input"],
Cell[13539, 330, 352, 9, 33, "Input"],
Cell[13894, 341, 2229, 54, 101, "Input"],
Cell[16126, 397, 1661, 44, 54, "Input"],
Cell[17790, 443, 117, 1, 32, "Text"],
Cell[17910, 446, 2244, 41, 33, "Input"],
Cell[20157, 489, 1726, 40, 59, "Input"],
Cell[21886, 531, 397, 9, 33, "Input"],
Cell[22286, 542, 2175, 53, 101, "Input"],
Cell[24464, 597, 1661, 44, 54, "Input"],
Cell[26128, 643, 2229, 40, 33, "Input"],
Cell[28360, 685, 1770, 41, 59, "Input"],
Cell[30133, 728, 440, 10, 33, "Input"],
Cell[30576, 740, 2229, 54, 101, "Input"],
Cell[32808, 796, 1661, 44, 54, "Input"],
Cell[34472, 842, 123, 1, 32, "Text"],
Cell[34598, 845, 2559, 46, 33, "Input"],
Cell[37160, 893, 1869, 42, 59, "Input"],
Cell[39032, 937, 467, 10, 33, "Input"],
Cell[39502, 949, 2368, 56, 101, "Input"],
Cell[41873, 1007, 1678, 45, 54, "Input"],
Cell[43554, 1054, 2244, 41, 33, "Input"],
Cell[45801, 1097, 1770, 41, 59, "Input"],
Cell[47574, 1140, 445, 10, 33, "Input"],
Cell[48022, 1152, 2225, 54, 101, "Input"],
Cell[50250, 1208, 1661, 44, 54, "Input"],
Cell[51914, 1254, 2248, 41, 33, "Input"],
Cell[54165, 1297, 1770, 41, 59, "Input"],
Cell[55938, 1340, 440, 10, 33, "Input"],
Cell[56381, 1352, 2220, 54, 101, "Input"],
Cell[58604, 1408, 1665, 44, 54, "Input"],
Cell[60272, 1454, 2293, 42, 33, "Input"],
Cell[62568, 1498, 1815, 41, 59, "Input"],
Cell[64386, 1541, 483, 11, 33, "Input"],
Cell[64872, 1554, 2258, 54, 101, "Input"],
Cell[67133, 1610, 1665, 44, 54, "Input"],
Cell[68801, 1656, 2349, 42, 33, "Input"],
Cell[71153, 1700, 1859, 42, 59, "Input"],
Cell[73015, 1744, 528, 11, 33, "Input"],
Cell[73546, 1757, 2358, 56, 101, "Input"],
Cell[75907, 1815, 1665, 44, 54, "Input"],
Cell[77575, 1861, 2432, 43, 33, "Input"],
Cell[80010, 1906, 1904, 43, 59, "Input"],
Cell[81917, 1951, 578, 12, 33, "Input"],
Cell[82498, 1965, 2400, 56, 111, "Input"],
Cell[84901, 2023, 1664, 44, 54, "Input"],
Cell[86568, 2069, 2394, 43, 33, "Input"],
Cell[88965, 2114, 1909, 43, 59, "Input"],
Cell[90877, 2159, 573, 12, 33, "Input"],
Cell[91453, 2173, 2406, 56, 111, "Input"],
Cell[93862, 2231, 1664, 44, 54, "Input"],
Cell[95529, 2277, 2482, 44, 33, "Input"],
Cell[98014, 2323, 1944, 43, 59, "Input"],
Cell[99961, 2368, 621, 13, 33, "Input"],
Cell[100585, 2383, 2448, 57, 111, "Input"],
Cell[103036, 2442, 1664, 44, 54, "Input"],
Cell[104703, 2488, 404, 8, 33, "Input"],
Cell[105110, 2498, 267, 6, 32, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[105414, 2509, 115, 1, 45, "Section"],
Cell[105532, 2512, 2174, 38, 33, "Input"],
Cell[107709, 2552, 1949, 47, 80, "Input"],
Cell[109661, 2601, 825, 23, 33, "Input"],
Cell[110489, 2626, 2238, 54, 101, "Input"],
Cell[CellGroupData[{
Cell[112752, 2684, 2422, 53, 74, "Input"],
Cell[115177, 2739, 2767, 57, 514, "Output"],
Cell[117947, 2798, 2741, 57, 514, "Output"],
Cell[120691, 2857, 2762, 57, 514, "Output"]
}, Open  ]],
Cell[123468, 2917, 2273, 40, 33, "Input"],
Cell[CellGroupData[{
Cell[125766, 2961, 1705, 40, 59, "Input"],
Cell[127474, 3003, 659, 18, 34, "Output"]
}, Open  ]],
Cell[128148, 3024, 378, 9, 33, "Input"],
Cell[128529, 3035, 2356, 55, 111, "Input"],
Cell[130888, 3092, 96, 1, 32, "Text"],
Cell[130987, 3095, 2408, 56, 111, "Input"],
Cell[133398, 3153, 89, 1, 32, "Text"],
Cell[CellGroupData[{
Cell[133512, 3158, 740, 19, 33, "Input"],
Cell[134255, 3179, 1650, 52, 79, "Output"]
}, Open  ]],
Cell[135920, 3234, 1433, 37, 81, "Input"],
Cell[137356, 3273, 1673, 44, 54, "Input"],
Cell[139032, 3319, 2974, 50, 33, "Input"],
Cell[142009, 3371, 2113, 49, 80, "Input"],
Cell[144125, 3422, 3001, 71, 131, "Input"],
Cell[147129, 3495, 104, 1, 32, "Text"],
Cell[147236, 3498, 425, 11, 33, "Input"],
Cell[147664, 3511, 2583, 59, 111, "Input"],
Cell[150250, 3572, 120, 1, 32, "Text"],
Cell[CellGroupData[{
Cell[150395, 3577, 937, 22, 33, "Input"],
Cell[151335, 3601, 1760, 53, 79, "Output"]
}, Open  ]],
Cell[153110, 3657, 1531, 38, 81, "Input"],
Cell[154644, 3697, 97, 1, 32, "Text"],
Cell[154744, 3700, 1718, 45, 54, "Input"],
Cell[156465, 3747, 3068, 51, 33, "Input"],
Cell[159536, 3800, 2080, 49, 80, "Input"],
Cell[161619, 3851, 3151, 75, 131, "Input"],
Cell[164773, 3928, 3098, 72, 111, "Input"],
Cell[167874, 4002, 3052, 72, 111, "Input"],
Cell[CellGroupData[{
Cell[170951, 4078, 1123, 25, 33, "Input"],
Cell[172077, 4105, 2864, 90, 123, "Output"]
}, Open  ]],
Cell[174956, 4198, 1914, 50, 101, "Input"],
Cell[CellGroupData[{
Cell[176895, 4252, 1091, 25, 33, "Input"],
Cell[177989, 4279, 1668, 52, 79, "Output"]
}, Open  ]],
Cell[179672, 4334, 1933, 51, 101, "Input"],
Cell[181608, 4387, 1730, 45, 54, "Input"],
Cell[183341, 4434, 3188, 54, 33, "Input"],
Cell[186532, 4490, 2222, 51, 80, "Input"],
Cell[188757, 4543, 3684, 87, 131, "Input"],
Cell[192444, 4632, 3513, 83, 131, "Input"],
Cell[CellGroupData[{
Cell[195982, 4719, 1069, 24, 33, "Input"],
Cell[197054, 4745, 2527, 67, 123, "Output"]
}, Open  ]],
Cell[199596, 4815, 2358, 62, 101, "Input"],
Cell[201957, 4879, 430, 10, 33, "Input"],
Cell[202390, 4891, 2678, 60, 111, "Input"],
Cell[205071, 4953, 1109, 25, 33, "Input"],
Cell[206183, 4980, 1683, 41, 101, "Input"],
Cell[207869, 5023, 1734, 45, 54, "Input"],
Cell[CellGroupData[{
Cell[209628, 5072, 25, 0, 30, "Subsubsection"],
Cell[209656, 5074, 3137, 52, 33, "Input"],
Cell[212796, 5128, 2217, 51, 80, "Input"],
Cell[215016, 5181, 3860, 92, 151, "Input"],
Cell[218879, 5275, 187, 4, 33, "Input"],
Cell[219069, 5281, 493, 11, 33, "Input"],
Cell[219565, 5294, 2759, 61, 111, "Input"],
Cell[222327, 5357, 146, 3, 33, "Input"],
Cell[222476, 5362, 1125, 25, 33, "Input"],
Cell[223604, 5389, 1740, 43, 101, "Input"],
Cell[225347, 5434, 153, 3, 33, "Input"],
Cell[225503, 5439, 1734, 45, 74, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[227274, 5489, 135, 1, 23, "Subsubsection"],
Cell[227412, 5492, 3248, 54, 33, "Input"],
Cell[230663, 5548, 2217, 51, 80, "Input"],
Cell[232883, 5601, 3903, 93, 151, "Input"],
Cell[236789, 5696, 187, 4, 33, "Input"],
Cell[236979, 5702, 493, 11, 33, "Input"],
Cell[237475, 5715, 2759, 61, 111, "Input"],
Cell[240237, 5778, 146, 3, 33, "Input"],
Cell[240386, 5783, 1125, 25, 33, "Input"],
Cell[241514, 5810, 1740, 43, 101, "Input"],
Cell[243257, 5855, 153, 3, 33, "Input"],
Cell[243413, 5860, 1734, 45, 74, "Input"]
}, Closed]]
}, Closed]]
}
]
*)

(* End of internal cache information *)