(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 10.1' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc. For additional information concerning CDF     *)
(*  licensing and redistribution see:                                    *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1064,         20]
NotebookDataLength[     22497,        615]
NotebookOptionsPosition[     23054,        610]
NotebookOutlinePosition[     23408,        626]
CellTagsIndexPosition[     23365,        623]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  StyleBox["Manipulate",
   FontSize->12], 
  StyleBox["[",
   FontSize->12], 
  RowBox[{
   RowBox[{
    StyleBox[
     RowBox[{"Tmax", ":=", "100"}],
     FontSize->12], 
    StyleBox[";",
     FontSize->12], 
    StyleBox["\[IndentingNewLine]",
     FontSize->12], 
    RowBox[{
     StyleBox["Column",
      FontSize->12], 
     StyleBox["[",
      FontSize->12], 
     RowBox[{
      RowBox[{
       StyleBox["{",
        FontSize->12], 
       StyleBox["\[IndentingNewLine]",
        FontSize->12], 
       RowBox[{
        StyleBox[
         RowBox[{"Show", "[", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"x", "+", 
                RowBox[{"r", "*", "x", "*", 
                 RowBox[{"(", 
                  RowBox[{"1", "-", "x"}], ")"}]}]}], ",", "x"}], "}"}], ",", 
             
             RowBox[{"{", 
              RowBox[{"x", ",", "0", ",", "1.6"}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"Thick", ",", "Black"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"Dashed", ",", "Thick", ",", "Black"}], "}"}]}], 
               "}"}]}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1.6"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
             RowBox[{"Frame", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "False", ",", "False"}], 
               "}"}]}], ",", 
             RowBox[{"FrameLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<N(t)\>\"", ",", "18", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], 
                 "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<N(t+1)\>\"", ",", "18", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], 
                 "]"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"Graphics", "[", 
            RowBox[{"Flatten", "[", 
             RowBox[{"MapIndexed", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Hue", "[", 
                   RowBox[{"0.8", "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"0.8", "*", 
                    RowBox[{"#2", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", "Tmax"}]}], 
                   "]"}], ",", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"#", "\[Equal]", "x0"}], ",", "0", ",", "#"}], 
                    "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"#", ",", 
                    RowBox[{"#", "+", 
                    RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}]}], "}"}]}], "}"}], 
                   "]"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"Line", "[", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"#", ",", " ", 
                    RowBox[{"#", "+", 
                    RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"#", "+", 
                    RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}], ",", 
                    RowBox[{"#", "+", 
                    RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}]}], "}"}]}], "}"}], 
                   "]"}]}], "}"}], "  ", "&"}], " ", ",", 
               RowBox[{"NestWhileList", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"#", "+", 
                   RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}], "&"}], ",", " ", "x0",
                  ",", " ", 
                 RowBox[{
                  RowBox[{"#1", " ", "\[NotEqual]", " ", 
                   RowBox[{"#", "+", 
                    RowBox[{"r", "#", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", "#"}], ")"}]}]}]}], " ", "&"}], ",", 
                 " ", "2", ",", " ", 
                 RowBox[{"Tnow", "-", "1"}]}], "]"}]}], "]"}], "]"}], "]"}], 
           ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"500", ",", "350"}], "}"}]}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", 
            RowBox[{"3.5", "/", "5"}]}]}], "\[IndentingNewLine]", "]"}],
         FontSize->12], 
        StyleBox[",",
         FontSize->12], 
        StyleBox["\[IndentingNewLine]",
         FontSize->12], 
        RowBox[{
         StyleBox[
          RowBox[{"t", "=", 
           RowBox[{"Range", "[", 
            RowBox[{"1", ",", "Tnow"}], "]"}]}],
          FontSize->12], 
         StyleBox[";",
          FontSize->12], 
         StyleBox["\[IndentingNewLine]",
          FontSize->12], 
         StyleBox[
          RowBox[{"NN", "=", 
           RowBox[{"NestList", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"#", "+", 
               RowBox[{"r", " ", "#", " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", "#"}], ")"}]}]}], "&"}], ",", "x0", ",", 
             "Tnow"}], "]"}]}],
          FontSize->12], 
         StyleBox[";",
          FontSize->12], 
         StyleBox["\[IndentingNewLine]",
          FontSize->12], 
         RowBox[{
          StyleBox["Show",
           FontSize->12], 
          StyleBox["[",
           FontSize->12], 
          RowBox[{
           StyleBox["{",
            FontSize->12], 
           RowBox[{
            RowBox[{
             StyleBox["ListPlot",
              FontSize->12], 
             StyleBox["[",
              FontSize->12], 
             RowBox[{
              StyleBox["NN",
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox["      ",
               FontSize->12], 
              StyleBox[
               RowBox[{"PlotRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"Max", "[", 
                    RowBox[{"20", ",", "Tnow"}], "]"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox["      ",
               FontSize->12], 
              StyleBox[
               RowBox[{"Joined", "\[Rule]", "True"}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox[
               RowBox[{"PlotStyle", "\[Rule]", "Thick"}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox[
               RowBox[{"Frame", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"True", ",", "True", ",", "False", ",", "False"}], 
                 "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox[
               RowBox[{"FrameLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<time (t)\>\"", ",", "18", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], 
                   "]"}], ",", 
                  RowBox[{"Style", "[", 
                   RowBox[{"\"\<N(t)\>\"", ",", "18", ",", 
                    RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], 
                   "]"}]}], "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox[
               RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox["      ",
               FontSize->12], 
              StyleBox[
               RowBox[{"ColorFunction", "\[Rule]", 
                RowBox[{"Function", "[", 
                 RowBox[{
                  RowBox[{"{", "t", "}"}], ",", 
                  RowBox[{"Hue", "[", 
                   RowBox[{"0.8", "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"0.8", "*", "t"}], ")"}], "/", "Tmax"}]}], 
                   "]"}]}], "]"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox["     ",
               FontSize->12], 
              StyleBox[
               RowBox[{"DataRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "Tnow"}], "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox["\[IndentingNewLine]",
               FontSize->12], 
              StyleBox["     ",
               FontSize->12], 
              StyleBox[
               RowBox[{"ImageSize", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"500", ",", "300"}], "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              RowBox[{
               StyleBox["AspectRatio",
                FontSize->12], 
               StyleBox["\[Rule]",
                FontSize->12], 
               RowBox[{
                StyleBox["3",
                 FontSize->12], "/", "5"}]}]}], 
             StyleBox["\[IndentingNewLine]",
              FontSize->12], 
             StyleBox["  ",
              FontSize->12], 
             StyleBox["]",
              FontSize->12]}], 
            StyleBox[",",
             FontSize->12], 
            RowBox[{
             StyleBox["ListPlot",
              FontSize->12], 
             StyleBox["[",
              FontSize->12], 
             RowBox[{
              StyleBox["NN",
               FontSize->12], 
              StyleBox[",",
               FontSize->12], 
              StyleBox[
               RowBox[{"DataRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"0", ",", "Tnow"}], "}"}]}],
               FontSize->12], 
              StyleBox[",",
               FontSize->12], " ", 
              StyleBox[
               RowBox[{"PlotStyle", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Black", ",", 
                  RowBox[{"PointSize", "[", ".01", "]"}]}], "}"}]}],
               FontSize->12]}], 
             StyleBox["]",
              FontSize->12]}]}], 
           StyleBox["}",
            FontSize->12]}], 
          StyleBox["]",
           FontSize->12]}]}]}], 
       StyleBox["}",
        FontSize->12]}], 
      StyleBox[",",
       FontSize->12], 
      RowBox[{
       StyleBox["Spacings",
        FontSize->12], 
       StyleBox["\[Rule]",
        FontSize->12], "0"}]}], 
     StyleBox["]",
      FontSize->12]}]}], 
   StyleBox["\[IndentingNewLine]",
    FontSize->12], 
   StyleBox[",",
    FontSize->12], 
   StyleBox["\[IndentingNewLine]",
    FontSize->12], 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<Cobwebbing the Discrete-time \\nLogistic Model\>\"", ",", "16", ",", 
     "Bold"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<\\n\[Copyright] David A. Vasseur\\n\>\"", ",", "12", ",", " ", 
     "Italic"}], "]"}], ",", "\[IndentingNewLine]", "Delimiter", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{
    "\"\<\!\(\*SubscriptBox[\(N\), \(t + 1\)]\)=\!\(\*SubscriptBox[\(N\), \(t\
\)]\)+\!\(\*SubscriptBox[\(r\), \(max\)]\)\!\(\*SubscriptBox[\(N\), \
\(t\)]\)(1-\!\(\*SubscriptBox[\(N\), \(t\)]\))\>\"", ",", "18", ",", 
     "Italic"}], "]"}], ",", "\[IndentingNewLine]", "Delimiter", ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<\\nModel Parameters\>\"", ",", "12"}], "]"}], ",", 
   StyleBox["\[IndentingNewLine]",
    FontSize->12], 
   RowBox[{
    StyleBox["{",
     FontSize->12], 
    RowBox[{
     RowBox[{
      StyleBox["{",
       FontSize->12], 
      RowBox[{
       StyleBox["r",
        FontSize->12], 
       StyleBox[",",
        FontSize->12], 
       StyleBox["1.8",
        FontSize->12], 
       StyleBox[",",
        FontSize->12], "\"\<\!\(\*SubscriptBox[\(r\), \(max\)]\)\>\""}], 
      StyleBox["}",
       FontSize->12]}], 
     StyleBox[",",
      FontSize->12], 
     StyleBox["0",
      FontSize->12], 
     StyleBox[",",
      FontSize->12], 
     StyleBox["3",
      FontSize->12], 
     StyleBox[",",
      FontSize->12], 
     StyleBox["0.01",
      FontSize->12], 
     StyleBox[",",
      FontSize->12], 
     StyleBox[" ",
      FontSize->12], 
     StyleBox[
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}],
      FontSize->12]}], 
    StyleBox["}",
     FontSize->12]}], 
   StyleBox[",",
    FontSize->12], 
   StyleBox["\[IndentingNewLine]",
    FontSize->12], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "x0", ",", "0.3", ",", 
        "\"\<initial value \!\(\*SubscriptBox[\(N\), \(0\)]\)\>\""}], "}"}], 
      ",", "0", ",", "1", ",", "0.01", ",", " ", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}],
    FontSize->12], 
   StyleBox[",",
    FontSize->12], 
   StyleBox["\[IndentingNewLine]",
    FontSize->12], 
   StyleBox[
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Tnow", ",", "1", ",", " ", "\"\<end time\>\""}], "}"}], ",", 
      " ", "1", ",", " ", "Tmax", ",", " ", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}],
    FontSize->12], 
   StyleBox[",",
    FontSize->12], 
   RowBox[{
    StyleBox["ControlPlacement",
     FontSize->12], 
    StyleBox["\[Rule]",
     FontSize->12], "Left"}]}], 
  StyleBox["\[IndentingNewLine]",
   FontSize->12], 
  StyleBox["]",
   FontSize->12]}]], "Input",
 CellOpen->False,
 CellChangeTimes->{{3.588078256084024*^9, 3.588078296955806*^9}, {
  3.5880783406033573`*^9, 3.58807834149855*^9}, {3.58807844458815*^9, 
  3.58807844721916*^9}, {3.588078572471274*^9, 3.5880785747005453`*^9}, {
  3.588078623744828*^9, 3.588078905297925*^9}, {3.5880789437609377`*^9, 
  3.5880790140992317`*^9}, {3.588079098033581*^9, 3.5880792482418613`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`r$$ = 
    2.7600000000000002`, $CellContext`Tnow$$ = 100, $CellContext`x0$$ = 0.08, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Cobwebbing the Discrete-time \nLogistic Model", 16, Bold]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["\n\[Copyright] David A. Vasseur\n", 12, Italic]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style[
       "\!\(\*SubscriptBox[\(N\), \(t + 1\)]\)=\!\(\*SubscriptBox[\(N\), \
\(t\)]\)+\!\(\*SubscriptBox[\(r\), \(max\)]\)\!\(\*SubscriptBox[\(N\), \(t\)]\
\)(1-\!\(\*SubscriptBox[\(N\), \(t\)]\))", 18, Italic]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[
       Style["\nModel Parameters", 12]], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`r$$], 1.8, "\!\(\*SubscriptBox[\(r\), \(max\)]\)"}, 
      0, 3, 0.01}, {{
       Hold[$CellContext`x0$$], 0.3, 
       "initial value \!\(\*SubscriptBox[\(N\), \(0\)]\)"}, 0, 1, 0.01}, {{
       Hold[$CellContext`Tnow$$], 1, "end time"}, 1, 100, 1}}, 
    Typeset`size$$ = {500., {322.134033203125, 327.865966796875}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`r$1151361$$ = 0, $CellContext`x0$1151362$$ = 
    0, $CellContext`Tnow$1151363$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`r$$ = 1.8, $CellContext`Tnow$$ = 
        1, $CellContext`x0$$ = 0.3}, "ControllerVariables" :> {
        Hold[$CellContext`r$$, $CellContext`r$1151361$$, 0], 
        Hold[$CellContext`x0$$, $CellContext`x0$1151362$$, 0], 
        Hold[$CellContext`Tnow$$, $CellContext`Tnow$1151363$$, 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" :> ($CellContext`Tmax := 100; Column[{
          Show[
           
           Plot[{$CellContext`x + ($CellContext`r$$ $CellContext`x) (
               1 - $CellContext`x), $CellContext`x}, {$CellContext`x, 0, 1.6},
             PlotStyle -> {{Thick, Black}, {Dashed, Thick, Black}}, 
            PlotRange -> {{0, 1.6}, {0, 1.5}}, 
            Frame -> {True, True, False, False}, FrameLabel -> {
              Style["N(t)", 18, FontFamily -> "Helvetica"], 
              Style["N(t+1)", 18, FontFamily -> "Helvetica"]}], 
           Graphics[
            Flatten[
             MapIndexed[{
               Hue[0.8 - (0.8 Part[#2, 1])/$CellContext`Tmax], 
               Line[{{#, 
                  
                  If[# == $CellContext`x0$$, 
                   0, #]}, {#, # + ($CellContext`r$$ #) (1 - #)}}], 
               
               Line[{{#, # + ($CellContext`r$$ #) (
                    1 - #)}, {# + ($CellContext`r$$ #) (
                    1 - #), # + ($CellContext`r$$ #) (1 - #)}}]}& , 
              
              NestWhileList[# + ($CellContext`r$$ #) (
                 1 - #)& , $CellContext`x0$$, # != # + ($CellContext`r$$ #) (
                  1 - #)& , 2, $CellContext`Tnow$$ - 1]]]], 
           ImageSize -> {500, 350}, AspectRatio -> 3.5/5], $CellContext`t = 
           Range[1, $CellContext`Tnow$$]; $CellContext`NN = 
           NestList[# + ($CellContext`r$$ #) (
               1 - #)& , $CellContext`x0$$, $CellContext`Tnow$$]; Show[{
             ListPlot[$CellContext`NN, PlotRange -> {{0, 
                 Max[20, $CellContext`Tnow$$]}, {0, 1.5}}, Joined -> True, 
              PlotStyle -> Thick, Frame -> {True, True, False, False}, 
              FrameLabel -> {
                Style["time (t)", 18, FontFamily -> "Helvetica"], 
                Style["N(t)", 18, FontFamily -> "Helvetica"]}, 
              ColorFunctionScaling -> False, ColorFunction -> 
              Function[{$CellContext`t}, 
                Hue[0.8 - (0.8 $CellContext`t)/$CellContext`Tmax]], 
              DataRange -> {0, $CellContext`Tnow$$}, ImageSize -> {500, 300}, 
              AspectRatio -> 3/5], 
             
             ListPlot[$CellContext`NN, DataRange -> {0, $CellContext`Tnow$$}, 
              PlotStyle -> {Black, 
                PointSize[0.01]}]}]}, Spacings -> 0]), "Specifications" :> {
        Style["Cobwebbing the Discrete-time \nLogistic Model", 16, Bold], 
        Style["\n\[Copyright] David A. Vasseur\n", 12, Italic], Delimiter, 
        Style[
        "\!\(\*SubscriptBox[\(N\), \(t + 1\)]\)=\!\(\*SubscriptBox[\(N\), \(t\
\)]\)+\!\(\*SubscriptBox[\(r\), \(max\)]\)\!\(\*SubscriptBox[\(N\), \
\(t\)]\)(1-\!\(\*SubscriptBox[\(N\), \(t\)]\))", 18, Italic], Delimiter, 
        Style[
        "\nModel Parameters", 
         12], {{$CellContext`r$$, 1.8, 
          "\!\(\*SubscriptBox[\(r\), \(max\)]\)"}, 0, 3, 0.01, Appearance -> 
         "Labeled"}, {{$CellContext`x0$$, 0.3, 
          "initial value \!\(\*SubscriptBox[\(N\), \(0\)]\)"}, 0, 1, 0.01, 
         Appearance -> "Labeled"}, {{$CellContext`Tnow$$, 1, "end time"}, 1, 
         100, 1, Appearance -> "Labeled"}}, 
      "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{869., {351., 357.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.5880790054297647`*^9, 3.588079015135171*^9}, {
  3.588079109008062*^9, 3.5880792489692383`*^9}}]
}, Open  ]]
},
WindowSize->{1482, 878},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"10.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 23, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1486, 35, 15675, 457, 19, "Input",
 CellOpen->False],
Cell[17164, 494, 5874, 113, 725, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature MxpHjaXbY2k5OCwwWBXAxv9U *)