Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"rg1", ",", "rg2"}], "}"}], ",", "
", 
     
     RowBox[{"Column", "[", 
      RowBox[{
       RowBox[{"{", "
", 
        RowBox[{
         RowBox[{"Quiet", "@", 
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{"Flatten", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"logisticMapOrbitCF", "[", 
                 RowBox[{"#", ",", "n"}], "]"}], "&"}], "/@", 
               RowBox[{"Range", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "-", 
                  RowBox[{".04", "/", "magH"}]}], ",", 
                 RowBox[{"Min", "[", 
                  RowBox[{"1", ",", 
                   RowBox[{
                    RowBox[{
                    "a", "[[", "1", 
                    "]]"}], "+", 
                    RowBox[{".04", "/", "magH"}]}]}], "]"}], ",", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ControlActive", "[", 
                    RowBox[{".6", ",", "0.15"}], "]"}], "/", "magH"}],
                   "/", "pts"}]}], "]"}]}], ",", "1"}], "]"}], ",", 
            RowBox[{"PlotStyle", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"RGBColor", "[", 
                RowBox[{".25", ",", ".43", ",", ".82"}], "]"}], ",", 
               RowBox[{"AbsolutePointSize", "[", "1", "]"}]}], 
              "}"}]}], ",", 
            RowBox[{"PlotLabel", "->", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Bifurcation Diagram\>\"", ",", "9"}], 
              "]"}]}], ",", 
            RowBox[{"PlotRange", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "-", 
                  RowBox[{".04", "/", "magH"}]}], ",", 
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "+", 
                  RowBox[{".04", "/", "magH"}]}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "a", "[[", "2", 
                   "]]"}], "-", 
                  RowBox[{".52", "/", "magV"}]}], ",", 
                 RowBox[{
                  RowBox[{
                  "a", "[[", "2", 
                   "]]"}], "+", 
                  RowBox[{".5", "/", "magV"}]}]}], "}"}]}], "}"}]}], 
            ",", 
            RowBox[{"AxesOrigin", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                "a", "[[", "1", 
                 "]]"}], "-", 
                RowBox[{".04", "/", "magH"}]}], ",", "Automatic"}], 
              "}"}]}], ",", 
            RowBox[{"ImagePadding", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"15", ",", "12"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"20", ",", "6"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"AspectRatio", "->", ".65"}], ",", 
            RowBox[{"ImageSize", "->", "500"}]}], "]"}]}], ",", 
         "
", 
         RowBox[{"Quiet", "@", 
          RowBox[{"ListPlot", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"#", ",", 
                RowBox[{"lyapListCF", "[", 
                 RowBox[{"#", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
             RowBox[{"Range", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                "a", "[[", "1", 
                 "]]"}], "-", 
                RowBox[{".04", "/", "magH"}]}], ",", 
               RowBox[{"Min", "[", 
                RowBox[{"1", ",", 
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "+", 
                  RowBox[{".04", "/", "magH"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"ControlActive", "[", 
                  RowBox[{".6", ",", "0.15"}], "]"}], "/", "magH"}], 
                "/", "pts"}]}], "]"}]}], ",", 
            RowBox[{"PlotLabel", "->", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Lyapunov Exponent\>\"", ",", "9"}], 
              "]"}]}], ",", 
            RowBox[{"Joined", "->", "True"}], ",", 
            RowBox[{"PlotStyle", "->", 
             RowBox[{"RGBColor", "[", 
              RowBox[{".49", ",", "0", ",", "0"}], "]"}]}], ",", 
            RowBox[{"PlotRange", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "-", 
                  RowBox[{".04", "/", "magH"}]}], ",", 
                 RowBox[{
                  RowBox[{
                  "a", "[[", "1", 
                   "]]"}], "+", 
                  RowBox[{"Min", "[", 
                   RowBox[{"1", ",", 
                    RowBox[{".04", "/", "magH"}]}], "]"}]}]}], "}"}], 
               ",", "Full"}], 
              RowBox[{"(*", 
               RowBox[{"{", 
                RowBox[{"Full", ",", ".5"}], "}"}], "*)"}], "}"}]}], 
            ",", 
            RowBox[{"AxesOrigin", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{
                "a", "[[", "1", 
                 "]]"}], "-", 
                RowBox[{".04", "/", "magH"}]}], ",", "0"}], "}"}]}], 
            ",", 
            RowBox[{"Ticks", "->", 
             RowBox[{"{", 
              RowBox[{"Automatic", ",", 
               RowBox[{"{", "0", "}"}]}], "}"}]}], ",", 
            RowBox[{"ImagePadding", "->", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"16", ",", "12"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"12", ",", "0"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"AspectRatio", "->", ".14"}], ",", 
            RowBox[{"ImageSize", "->", "500"}]}], "]"}]}]}], 
        "}"}], ",", 
       RowBox[{"Spacings", "->", "0"}], ",", 
       RowBox[{"Frame", "->", "True"}]}], "]"}]}], "]"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", 
       RowBox[{"{", 
        RowBox[{".85", ",", "0.5"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0.7", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", "Locator", ",", 
     RowBox[{"Appearance", "->", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<(+)\>\"", ",", 
        RowBox[{"RGBColor", "[", 
         RowBox[{".49", ",", ".49", ",", "0"}], "]"}], ",", "Bold", 
        ",", "18"}], "]"}]}]}], "}"}], ",", "
", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<zoom\>\"", ",", "Bold"}], "]"}], ",", 
   "
", "\"\<horizontal\>\"", ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"magH", ",", ".26667", ",", "\"\<\>\""}], "}"}], ",", 
     ".1", ",", "10", ",", ".1", ",", "VerticalSlider", ",", 
     RowBox[{"ImageSize", "->", "Small"}]}], "}"}], ",", 
   "
", "Delimiter", ",", "
", 
   "\"\<vertical\>\"", ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"magV", ",", "1", ",", "\"\<\>\""}], "}"}], ",", ".1", 
     ",", "10", ",", ".1", ",", "VerticalSlider", ",", 
     RowBox[{"ImageSize", "->", "Small"}]}], "}"}], ",", 
   "Delimiter", ",", "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "1000", ",", "\"\<number of iterates\>\""}], 
      "}"}], ",", 
     RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", 
   "
", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "pts", ",", "2000", ",", "\"\<number of \[Lambda] values\>\""}],
       "}"}], ",", 
     RowBox[{"ControlType", "->", "None"}]}], "}"}], ",", 
   "
", 
   RowBox[{"Button", "[", 
    RowBox[{"\"\<reset\>\"", ",", 
     RowBox[{
      RowBox[{"a", "=", 
       RowBox[{"{", 
        RowBox[{".85", ",", "0.5"}], "}"}]}], ";", 
      RowBox[{"magH", "=", ".26667"}], ";", 
      RowBox[{"magV", "=", "1"}], ";", 
      RowBox[{"n", "=", "1000"}], ";", 
      RowBox[{"pts", "=", "2000"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"Button", "[", 
    RowBox[{"\"\<detail\>\"", ",", 
     RowBox[{
      RowBox[{"n", "=", "2000"}], ";", 
      RowBox[{"pts", "=", "4000"}]}]}], "]"}], ",", 
   "
", 
   RowBox[{"ControlPlacement", "->", "Left"}], ",", 
   "
", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "5"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "5"}], "}"}]}], "}"}]}], ",", 
   "
", 
   RowBox[{"TrackedSymbols", ":>", 
    RowBox[{"{", 
     RowBox[{"a", ",", "magH", ",", "magV", ",", "n", ",", "pts"}], 
     "}"}]}], ",", "
", 
   RowBox[{"Initialization", ":>", 
    RowBox[{"(", "
", 
     RowBox[{
      RowBox[{"logisticMapOrbitCF", "=", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Lambda]", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "_Integer"}], "}"}]}], "}"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Lambda]", ",", "#"}], "}"}], "&"}], "/@", 
          RowBox[{"Take", "[", 
           RowBox[{
            RowBox[{"NestList", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"4.", "\[Lambda]", " ", "#", 
                RowBox[{"(", 
                 RowBox[{"1.", "-", "#"}], ")"}]}], "&"}], ",", 
              "\[Lambda]", ",", "n"}], "]"}], ",", 
            RowBox[{"-", "24"}]}], "]"}]}]}], "]"}]}], ";", 
      RowBox[{"lyapListCF", "=", 
       RowBox[{"Compile", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Lambda]", ",", "_Real"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "_Integer"}], "}"}]}], "}"}], ",", 
         RowBox[{"Mean", "[", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{"Abs", "[", 
               RowBox[{"4.", "\[Lambda]", 
                RowBox[{"(", 
                 RowBox[{"1.", "-", 
                  RowBox[{"2", "#"}]}], ")"}]}], "]"}], "]"}], "&"}], 
            "/@", 
            RowBox[{"NestList", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"4.", "\[Lambda]", " ", "#", 
                RowBox[{"(", 
                 RowBox[{"1.", "-", "#"}], ")"}]}], "&"}], ",", 
              "\[Lambda]", ",", "n"}], "]"}]}], ")"}], "]"}]}], 
        "]"}]}]}], "
", ")"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35696210375764*^9, 3.46994136759375*^9, {3.469942512546875*^9, 
   3.469942513546875*^9}, 3.46994272840625*^9, {3.469943683109375*^9, 
   3.469943754484375*^9}, {3.469943842203125*^9, 
   3.469943845171875*^9}, 3.4699439170625*^9, {3.469943996625*^9, 
   3.46994399703125*^9}, {3.469944078234375*^9, 
   3.469944086765625*^9}, {3.46994424021875*^9, 
   3.469944243953125*^9}, {3.469944294796875*^9, 3.469944306125*^9}, {
   3.46994437821875*^9, 3.469944384234375*^9}, 3.469944482046875*^9, 
   3.469944860125*^9, {3.46994489459375*^9, 3.46994489728125*^9}, {
   3.469946264609375*^9, 3.469946435625*^9}, 3.46995169015625*^9, 
   3.469951770953125*^9, {3.469951924765625*^9, 3.4699519576875*^9}, 
   3.46995207271875*^9, 3.469952180875*^9, {3.46995225703125*^9, 
   3.469952301921875*^9}, {3.4699525034375*^9, 3.46995255565625*^9}, 
   3.469952668234375*^9, {3.46995279075*^9, 3.46995284884375*^9}, {
   3.469953094171875*^9, 3.4699531276875*^9}, {3.469953160140625*^9, 
   3.46995316809375*^9}, {3.469953206984375*^9, 
   3.469953237046875*^9}, {3.469953274578125*^9, 
   3.469953316484375*^9}, {3.469953356515625*^9, 3.46995338803125*^9},
    3.46995342059375*^9, {3.469957202140625*^9, 
   3.469957208671875*^9}, {3.469957242875*^9, 3.469957283140625*^9}, {
   3.469957547703125*^9, 3.46995756753125*^9}, {3.469957694359375*^9, 
   3.469957696828125*^9}, {3.469957890796875*^9, 3.469957945375*^9}, {
   3.4699579803125*^9, 3.4699579915625*^9}, {3.46995802778125*^9, 
   3.469958114125*^9}, {3.46995815871875*^9, 3.46995816940625*^9}, 
   3.469958222*^9, {3.469958279734375*^9, 3.4699583110625*^9}, {
   3.469961151765625*^9, 3.469961179640625*^9}, {3.469961214421875*^9,
    3.469961244890625*^9}, 3.469961331171875*^9, {
   3.469961365671875*^9, 3.469961369546875*^9}, {3.469961421546875*^9,
    3.469961487203125*^9}, {3.469961518328125*^9, 
   3.469961583171875*^9}, {3.46996162046875*^9, 3.469961670875*^9}, {
   3.4699617291875*^9, 3.46996173478125*^9}, {3.469961767609375*^9, 
   3.46996179203125*^9}, {3.469961886734375*^9, 
   3.46996193103125*^9}, {3.46996217084375*^9, 
   3.469962189984375*^9}, {3.469962229125*^9, 3.469962287796875*^9}, {
   3.4699625519375*^9, 3.4699626105*^9}, {3.469962672609375*^9, 
   3.46996283528125*^9}, {3.4699628791875*^9, 3.4699629041875*^9}, {
   3.469963027046875*^9, 3.46996326140625*^9}, {3.46996336140625*^9, 
   3.469963374296875*^9}, {3.469963405734375*^9, 
   3.469963435359375*^9}, 3.469964321390625*^9, {3.469964376765625*^9,
    3.469964399609375*^9}, {3.469964532453125*^9, 
   3.46996453603125*^9}, {3.469964610390625*^9, 
   3.46996462640625*^9}, {3.4699647245625*^9, 3.46996472484375*^9}, {
   3.4699647943125*^9, 3.46996480221875*^9}, {3.469964853328125*^9, 
   3.469964940515625*^9}, {3.469965099796875*^9, 3.46996512540625*^9},
    3.469965166453125*^9, {3.469965340171875*^9, 3.4699653760625*^9}, 
   3.469965437890625*^9, {3.469965472078125*^9, 3.46996547590625*^9}, 
   3.469965626828125*^9, {3.46996571425*^9, 3.469965718625*^9}, {
   3.469965788953125*^9, 3.46996583628125*^9}, {3.469965913890625*^9, 
   3.46996606815625*^9}, {3.469966101453125*^9, 
   3.469966125703125*^9}, {3.469966233765625*^9, 
   3.469966237109375*^9}, 3.4699663759375*^9, {3.469966459125*^9, 
   3.469966459765625*^9}, {3.469966522671875*^9, 
   3.469966527703125*^9}, 3.46997028103125*^9, {3.4699703381875*^9, 
   3.46997033875*^9}, {3.469970393765625*^9, 3.469970408578125*^9}, {
   3.46997052121875*^9, 3.469970537609375*^9}, {3.4699706200625*^9, 
   3.469970629734375*^9}, {3.46997071784375*^9, 3.469970719046875*^9},
    3.469970975890625*^9, {3.469974057703125*^9, 
   3.469974097453125*^9}, {3.469974134671875*^9, 
   3.469974146578125*^9}, {3.473585642953125*^9, 3.473585649875*^9}, 
   3.473585805921875*^9, {3.473585893078125*^9, 
   3.473586243421875*^9}, {3.473586394078125*^9, 3.4735864181875*^9}, 
   3.473586452265625*^9, {3.473586492*^9, 3.47358651278125*^9}, {
   3.47358658103125*^9, 3.473586581265625*^9}, {3.47358670615625*^9, 
   3.473586715875*^9}, {3.4735867675*^9, 3.473586779171875*^9}, {
   3.473586896*^9, 3.473586953015625*^9}, {3.47358700278125*^9, 
   3.47358700953125*^9}, {3.473587067640625*^9, 
   3.47358709871875*^9}, {3.473587907203125*^9, 
   3.473587946609375*^9}, {3.47358799475*^9, 3.473588000796875*^9}, {
   3.47358804596875*^9, 3.473588071421875*^9}, {3.473589464796875*^9, 
   3.473589465859375*^9}, {3.4735895224375*^9, 3.47358952553125*^9}, {
   3.4735895634375*^9, 3.473589575484375*^9}, {3.473589635765625*^9, 
   3.473589671625*^9}, 3.47358972340625*^9, {3.47358980703125*^9, 
   3.47358982234375*^9}, {3.47358992271875*^9, 3.473589951109375*^9}, 
   3.473589998234375*^9, {3.47359060675*^9, 3.4735906385625*^9}, {
   3.473590699109375*^9, 3.473590704234375*^9}, {3.47359097140625*^9, 
   3.473590997*^9}, {3.473591037421875*^9, 3.47359107159375*^9}, {
   3.47359111353125*^9, 3.4735911163125*^9}, {3.473591151796875*^9, 
   3.4735911538125*^9}, {3.4735911903125*^9, 3.473591208859375*^9}, {
   3.47359128428125*^9, 3.4735912875625*^9}, 3.473591332171875*^9, {
   3.473591534796875*^9, 3.473591558703125*^9}, {3.47359174809375*^9, 
   3.4735918256875*^9}, {3.47359186815625*^9, 3.47359187178125*^9}, {
   3.473591909109375*^9, 3.47359191165625*^9}, 3.473594969859375*^9, {
   3.47927466853125*^9, 3.47927469209375*^9}, {3.4793837750625*^9, 
   3.4793838593125*^9}, {3.479383902109375*^9, 3.47938395834375*^9}, {
   3.47938426903125*^9, 3.479384306703125*^9}, {3.479384354484375*^9, 
   3.4793844805625*^9}, {3.479384512640625*^9, 3.47938452390625*^9}, {
   3.47938464534375*^9, 3.47938468328125*^9}, {3.4793847566875*^9, 
   3.47938481859375*^9}, {3.47938485934375*^9, 
   3.479384892453125*^9}, {3.479384924953125*^9, 3.479384996375*^9}, {
   3.479385041984375*^9, 3.47938504546875*^9}, {3.479385134203125*^9, 
   3.47938517396875*^9}, {3.479385206140625*^9, 
   3.479385227796875*^9}, {3.479385328015625*^9, 
   3.47938534471875*^9}, {3.47938544603125*^9, 
   3.479385470578125*^9}, {3.479385504671875*^9, 
   3.479385617921875*^9}, {3.479387762984375*^9, 
   3.4793878461875*^9}, {3.47938792821875*^9, 3.479387949859375*^9}, {
   3.479388005109375*^9, 3.4793881079375*^9}, {3.47938876984375*^9, 
   3.479388786953125*^9}, {3.479388834796875*^9, 
   3.47938883571875*^9}, {3.479388866484375*^9, 3.4793888718125*^9}, {
   3.479388917234375*^9, 3.4793889305*^9}, {3.47938898428125*^9, 
   3.479388994140625*^9}, 3.4793891215*^9, {3.479389198640625*^9, 
   3.479389201375*^9}, {3.479389329390625*^9, 3.47938933403125*^9}, {
   3.47938937865625*^9, 3.479389420984375*^9}, {3.479389468*^9, 
   3.47938948040625*^9}, 3.47938951665625*^9, {3.47938955865625*^9, 
   3.479389578640625*^9}, {3.479392034140625*^9, 3.4793920645*^9}, {
   3.479392116*^9, 3.47939211934375*^9}, {3.47939216396875*^9, 
   3.479392226421875*^9}, {3.49614350115625*^9, 
   3.49614353909375*^9}, {3.496590615158223*^9, 
   3.4965906726779747`*^9}, {3.4965907089195986`*^9, 
   3.4965907700347095`*^9}, {3.4966035204900274`*^9, 
   3.4966035290837774`*^9}, 3.4966042057087774`*^9, 
   3.4966042424431524`*^9, {3.496641247546875*^9, 
   3.496641289484375*^9}, {3.496641357859375*^9, 3.49664138515625*^9},
    3.4966414565*^9, {3.496641794421875*^9, 3.49664179734375*^9}, {
   3.496641983875*^9, 3.496641984625*^9}, {3.49664202784375*^9, 
   3.496642028140625*^9}, {3.49664206615625*^9, 
   3.49664206653125*^9}, {3.496642099734375*^9, 
   3.496642100671875*^9}, {3.496642143421875*^9, 
   3.4966421436875*^9}, {3.496642189984375*^9, 3.49664219075*^9}, {
   3.49664222096875*^9, 3.49664222175*^9}, 3.496642310046875*^9, {
   3.4966473738125*^9, 3.49664743825*^9}, {3.6332787762875247`*^9, 
   3.6332787814730434`*^9}, {3.633712450662385*^9, 
   3.6337124738035717`*^9}, {3.633712524496852*^9, 
   3.633712603887478*^9}, {3.633712692741955*^9, 
   3.633712694360021*^9}, {3.6337127667559347`*^9, 
   3.633712769071506*^9}, {3.6337128032588463`*^9, 
   3.633712803866436*^9}, {3.633712878456438*^9, 
   3.633712941612513*^9}, {3.633712984701248*^9, 3.63371300101276*^9},
    3.633713073228232*^9, {3.6337833896337943`*^9, 
   3.6337833908189125`*^9}, 3.759801467189044*^9},
 CellID->361509161],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = {0.85, 
    0.5}, $CellContext`magH$$ = 0.26667, $CellContext`magV$$ = 
    1, $CellContext`n$$ = 1000, $CellContext`pts$$ = 2000, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], {0.85, 0.5}}, {0.7, 0}, {1, 1}}, {
      Hold[
       Style["zoom", Bold]], Manipulate`Dump`ThisIsNotAControl}, {
      Hold["horizontal"], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`magH$$], 0.26667, ""}, 0.1, 10, 0.1}, {
      Hold["vertical"], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`magV$$], 1, ""}, 0.1, 10, 0.1}, {{
       Hold[$CellContext`n$$], 1000, "number of iterates"}}, {{
       Hold[$CellContext`pts$$], 2000, 
       "number of \[Lambda] values"}}, {
      Hold[
       Button[
       "reset", $CellContext`a$$ = {0.85, 0.5}; $CellContext`magH$$ = 
         0.26667; $CellContext`magV$$ = 1; $CellContext`n$$ = 
         1000; $CellContext`pts$$ = 2000]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Button[
       "detail", $CellContext`n$$ = 2000; $CellContext`pts$$ = 4000]],
       Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    511., {216., 221.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`a$2003$$ = {0, 
    0}, $CellContext`magH$2004$$ = 0, $CellContext`magV$2005$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = {0.85, 
         0.5}, $CellContext`magH$$ = 0.26667, $CellContext`magV$$ = 
        1, $CellContext`n$$ = 1000, $CellContext`pts$$ = 2000}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$2003$$, {0, 0}], 
        Hold[$CellContext`magH$$, $CellContext`magH$2004$$, 0], 
        Hold[$CellContext`magV$$, $CellContext`magV$2005$$, 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" :> 
      Module[{$CellContext`rg1$, $CellContext`rg2$}, 
        Column[{
          Quiet[
           ListPlot[
            Flatten[
             
             Map[$CellContext`logisticMapOrbitCF[#, $CellContext`n$$]& \
, 
              Range[
              Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 
               Min[
               1, Part[$CellContext`a$$, 1] + 
                0.04/$CellContext`magH$$], (
                ControlActive[
                 0.6, 0.15]/$CellContext`magH$$)/$CellContext`pts$$]],
              1], PlotStyle -> {
              RGBColor[0.25, 0.43, 0.82], 
              AbsolutePointSize[1]}, PlotLabel -> 
            Style["Bifurcation Diagram", 9], 
            PlotRange -> {{
              Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 
               Part[$CellContext`a$$, 1] + 
               0.04/$CellContext`magH$$}, {
              Part[$CellContext`a$$, 2] - 0.52/$CellContext`magV$$, 
               Part[$CellContext`a$$, 2] + 0.5/$CellContext`magV$$}}, 
            AxesOrigin -> {
             Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 
              Automatic}, ImagePadding -> {{15, 12}, {20, 6}}, 
            AspectRatio -> 0.65, ImageSize -> 500]], 
          Quiet[
           ListPlot[
            Map[{#, 
              $CellContext`lyapListCF[#, $CellContext`n$$]}& , 
             Range[
             Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 
              Min[
              1, Part[$CellContext`a$$, 1] + 
               0.04/$CellContext`magH$$], (
               ControlActive[
                0.6, 0.15]/$CellContext`magH$$)/$CellContext`pts$$]], 
            PlotLabel -> Style["Lyapunov Exponent", 9], Joined -> 
            True, PlotStyle -> RGBColor[0.49, 0, 0], 
            PlotRange -> {{
              Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 
               Part[$CellContext`a$$, 1] + 
               Min[1, 0.04/$CellContext`magH$$]}, Full}, 
            AxesOrigin -> {
             Part[$CellContext`a$$, 1] - 0.04/$CellContext`magH$$, 0},
             Ticks -> {Automatic, {0}}, 
            ImagePadding -> {{16, 12}, {12, 0}}, AspectRatio -> 0.14, 
            ImageSize -> 500]]}, Spacings -> 0, Frame -> True]], 
      "Specifications" :> {{{$CellContext`a$$, {0.85, 0.5}}, {
         0.7, 0}, {1, 1}, ControlType -> Locator, Appearance -> 
         Style["(+)", 
           RGBColor[0.49, 0.49, 0], Bold, 18]}, 
        Style["zoom", Bold], 
        "horizontal", {{$CellContext`magH$$, 0.26667, ""}, 0.1, 10, 
         0.1, ControlType -> VerticalSlider, ImageSize -> Small}, 
        Delimiter, 
        "vertical", {{$CellContext`magV$$, 1, ""}, 0.1, 10, 0.1, 
         ControlType -> VerticalSlider, ImageSize -> Small}, 
        Delimiter, {{$CellContext`n$$, 1000, "number of iterates"}, 
         ControlType -> 
         None}, {{$CellContext`pts$$, 2000, 
          "number of \[Lambda] values"}, ControlType -> None}, 
        Button[
        "reset", $CellContext`a$$ = {0.85, 0.5}; $CellContext`magH$$ = 
          0.26667; $CellContext`magV$$ = 1; $CellContext`n$$ = 
          1000; $CellContext`pts$$ = 2000], 
        Button[
        "detail", $CellContext`n$$ = 2000; $CellContext`pts$$ = 
          4000]}, 
      "Options" :> {
       ControlPlacement -> Left, 
        AutorunSequencing -> {{1, 10}, {2, 5}, {3, 5}}, 
        TrackedSymbols :> {$CellContext`a$$, $CellContext`magH$$, \
$CellContext`magV$$, $CellContext`n$$, $CellContext`pts$$}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{634., {249., 254.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>(($CellContext`logisticMapOrbitCF = 
       Compile[{{$CellContext`\[Lambda], 
           Blank[Real]}, {$CellContext`n$$, 
           Blank[Integer]}}, 
         Map[{$CellContext`\[Lambda], #}& , 
          Take[
           
           NestList[((4. $CellContext`\[Lambda]) #) (
             1. - #)& , $CellContext`\[Lambda], $CellContext`n$$], \
-24]]]; $CellContext`lyapListCF = Compile[{{$CellContext`\[Lambda], 
           Blank[Real]}, {$CellContext`n$$, 
           Blank[Integer]}}, 
         Mean[
          Map[Log[
            Abs[(4. $CellContext`\[Lambda]) (1. - 2 #)]]& , 
           
           NestList[((4. $CellContext`\[Lambda]) #) (
             1. - #)& , $CellContext`\[Lambda], $CellContext`n$$]]]]); 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.759801467189516*^9},
 CellID->697309049]
}, {2}]]