(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 32838, 874] NotebookOptionsPosition[ 29062, 755] NotebookOutlinePosition[ 30642, 805] CellTagsIndexPosition[ 30322, 793] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Logistic Equation", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.3903227329900675`*^9, 3.3903227368963175`*^9}}], Cell[CellGroupData[{ Cell["", "InitializationSection"], Cell[BoxData[ RowBox[{ RowBox[{"x", "[", RowBox[{"t_", ",", "x0_", ",", "r_"}], "]"}], ":=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"1", "/", "x0"}], "-", "1"}], ")"}], " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "r"}], " ", "t"}], "]"}]}]}], ")"}]}]}]], "Input", CellID->47468422] }, Closed]], Cell[CellGroupData[{ Cell["", "ManipulateSection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"If", "[", RowBox[{"fam", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "@", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"t", ",", "x0", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"x0", ",", ".01", ",", "1", ",", ".1"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"450", ",", "300"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", ".007", "]"}], ",", RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", "i", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", ".01", ",", "1", ",", ".1"}], "}"}]}], "]"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "12"}], "]"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"t", ",", "x0", ",", "r"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"450", ",", "300"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thickness", "[", ".01", "]"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "12"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", "12"}], "]"}]}], "}"}]}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", ".25"}], "}"}], ",", "0.01", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}], ",", RowBox[{"Enabled", "\[Rule]", RowBox[{"!", "fam"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "1"}], "}"}], ",", RowBox[{"-", "2"}], ",", "2", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fam", ",", "False", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{ 3.35696210375764*^9, {3.3903226090056925`*^9, 3.3903226185369425`*^9}, { 3.3903226727088175`*^9, 3.3903227050994425`*^9}, {3.3903228402400675`*^9, 3.3903229284588175`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fam$$ = False, $CellContext`r$$ = 0.43999999999999995`, $CellContext`x0$$ = 0.431, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0.25}, 0.01, 1}, {{ Hold[$CellContext`r$$], 1}, -2, 2}, {{ Hold[$CellContext`fam$$], False, "show family of curves"}, { True, False}}}, Typeset`size$$ = {450., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`x0$25889$$ = 0, $CellContext`r$25890$$ = 0, $CellContext`fam$25891$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fam$$ = False, $CellContext`r$$ = 1, $CellContext`x0$$ = 0.25}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$25889$$, 0], Hold[$CellContext`r$$, $CellContext`r$25890$$, 0], Hold[$CellContext`fam$$, $CellContext`fam$25891$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> If[$CellContext`fam$$, Plot[ Evaluate[ Table[ $CellContext`x[$CellContext`t, $CellContext`x0$$, \ $CellContext`r$$], {$CellContext`x0$$, 0.01, 1, 0.1}]], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> Table[{ Thickness[0.007], ColorData["SunsetColors"][$CellContext`i]}, {$CellContext`i, 0.01, 1, 0.1}], AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}], Plot[ $CellContext`x[$CellContext`t, $CellContext`x0$$, $CellContext`r$$], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> { Thickness[0.01]}, AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}]], "Specifications" :> {{{$CellContext`x0$$, 0.25}, 0.01, 1, Appearance -> "Labeled", Enabled -> Dynamic[ Not[$CellContext`fam$$]]}, {{$CellContext`r$$, 1}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`fam$$, False, "show family of curves"}, { True, False}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{494., {214., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`x0, Blank[]], Pattern[$CellContext`r, Blank[]]] := 1/(1 + (1/$CellContext`x0 - 1) Exp[(-$CellContext`r) $CellContext`t])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->289286146] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection"], Cell[TextData[{ "Population growth can be modeled using the logistic equation, ", Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", "x"}], RowBox[{"d", " ", "t"}]], "=", RowBox[{"r", " ", "x", " ", RowBox[{"(", RowBox[{"1", "-", "x"}], ")"}]}]}], TraditionalForm]], "InlineMath"], "." }], "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.3903229913181925`*^9, 3.3903230844900675`*^9}, { 3.3905667264712086`*^9, 3.3905667345656834`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["", "ThumbnailSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fam$$ = True, $CellContext`r$$ = 0.33000000000000007`, $CellContext`x0$$ = 0.25, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0.25}, 0.01, 1}, {{ Hold[$CellContext`r$$], 0.33000000000000007`}, -2, 2}, {{ Hold[$CellContext`fam$$], True, "show family of curves"}, { True, False}}}, Typeset`size$$ = {450., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`x0$25952$$ = 0, $CellContext`r$25953$$ = 0, $CellContext`fam$25954$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fam$$ = True, $CellContext`r$$ = 0.33000000000000007`, $CellContext`x0$$ = 0.25}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$25952$$, 0], Hold[$CellContext`r$$, $CellContext`r$25953$$, 0], Hold[$CellContext`fam$$, $CellContext`fam$25954$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> If[$CellContext`fam$$, Plot[ Evaluate[ Table[ $CellContext`x[$CellContext`t, $CellContext`x0$$, \ $CellContext`r$$], {$CellContext`x0$$, 0.01, 1, 0.1}]], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> Table[{ Thickness[0.007], ColorData["SunsetColors"][$CellContext`i]}, {$CellContext`i, 0.01, 1, 0.1}], AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}], Plot[ $CellContext`x[$CellContext`t, $CellContext`x0$$, $CellContext`r$$], \ {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> { Thickness[0.01]}, AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}]], "Specifications" :> {{{$CellContext`x0$$, 0.25}, 0.01, 1, Appearance -> "Labeled", Enabled -> Dynamic[ Not[$CellContext`fam$$]]}, {{$CellContext`r$$, 0.33000000000000007`}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`fam$$, True, "show family of curves"}, { True, False}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{494., {214., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`x0, Blank[]], Pattern[$CellContext`r, Blank[]]] := 1/(1 + (1/$CellContext`x0 - 1) Exp[(-$CellContext`r) $CellContext`t])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->804293742] }, Open ]], Cell[CellGroupData[{ Cell["", "SnapshotsSection"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fam$$ = False, $CellContext`r$$ = 0.8199999999999998, $CellContext`x0$$ = 0.01, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0.01}, 0.01, 1}, {{ Hold[$CellContext`r$$], 0.8199999999999998}, -2, 2}, {{ Hold[$CellContext`fam$$], False, "show family of curves"}, { True, False}}}, Typeset`size$$ = {450., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`x0$26015$$ = 0, $CellContext`r$26016$$ = 0, $CellContext`fam$26017$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fam$$ = False, $CellContext`r$$ = 0.8199999999999998, $CellContext`x0$$ = 0.01}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$26015$$, 0], Hold[$CellContext`r$$, $CellContext`r$26016$$, 0], Hold[$CellContext`fam$$, $CellContext`fam$26017$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> If[$CellContext`fam$$, Plot[ Evaluate[ Table[ $CellContext`x[$CellContext`t, $CellContext`x0$$, \ $CellContext`r$$], {$CellContext`x0$$, 0.01, 1, 0.1}]], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> Table[{ Thickness[0.007], ColorData["SunsetColors"][$CellContext`i]}, {$CellContext`i, 0.01, 1, 0.1}], AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}], Plot[ $CellContext`x[$CellContext`t, $CellContext`x0$$, $CellContext`r$$], \ {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> { Thickness[0.01]}, AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}]], "Specifications" :> {{{$CellContext`x0$$, 0.01}, 0.01, 1, Appearance -> "Labeled", Enabled -> Dynamic[ Not[$CellContext`fam$$]]}, {{$CellContext`r$$, 0.8199999999999998}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`fam$$, False, "show family of curves"}, { True, False}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{494., {214., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`x0, Blank[]], Pattern[$CellContext`r, Blank[]]] := 1/(1 + (1/$CellContext`x0 - 1) Exp[(-$CellContext`r) $CellContext`t])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->763501159], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fam$$ = True, $CellContext`r$$ = -1.53, $CellContext`x0$$ = 0.25, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0.25}, 0.01, 1}, {{ Hold[$CellContext`r$$], -1.53}, -2, 2}, {{ Hold[$CellContext`fam$$], True, "show family of curves"}, { True, False}}}, Typeset`size$$ = {450., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`x0$26078$$ = 0, $CellContext`r$26079$$ = 0, $CellContext`fam$26080$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fam$$ = True, $CellContext`r$$ = -1.53, $CellContext`x0$$ = 0.25}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$26078$$, 0], Hold[$CellContext`r$$, $CellContext`r$26079$$, 0], Hold[$CellContext`fam$$, $CellContext`fam$26080$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> If[$CellContext`fam$$, Plot[ Evaluate[ Table[ $CellContext`x[$CellContext`t, $CellContext`x0$$, \ $CellContext`r$$], {$CellContext`x0$$, 0.01, 1, 0.1}]], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> Table[{ Thickness[0.007], ColorData["SunsetColors"][$CellContext`i]}, {$CellContext`i, 0.01, 1, 0.1}], AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}], Plot[ $CellContext`x[$CellContext`t, $CellContext`x0$$, $CellContext`r$$], \ {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> { Thickness[0.01]}, AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}]], "Specifications" :> {{{$CellContext`x0$$, 0.25}, 0.01, 1, Appearance -> "Labeled", Enabled -> Dynamic[ Not[$CellContext`fam$$]]}, {{$CellContext`r$$, -1.53}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`fam$$, True, "show family of curves"}, { True, False}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{494., {214., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`x0, Blank[]], Pattern[$CellContext`r, Blank[]]] := 1/(1 + (1/$CellContext`x0 - 1) Exp[(-$CellContext`r) $CellContext`t])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->371391241], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fam$$ = True, $CellContext`r$$ = 0.31000000000000005`, $CellContext`x0$$ = 0.25, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x0$$], 0.25}, 0.01, 1}, {{ Hold[$CellContext`r$$], 0.31000000000000005`}, -2, 2}, {{ Hold[$CellContext`fam$$], True, "show family of curves"}, { True, False}}}, Typeset`size$$ = {450., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`x0$26141$$ = 0, $CellContext`r$26142$$ = 0, $CellContext`fam$26143$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fam$$ = True, $CellContext`r$$ = 0.31000000000000005`, $CellContext`x0$$ = 0.25}, "ControllerVariables" :> { Hold[$CellContext`x0$$, $CellContext`x0$26141$$, 0], Hold[$CellContext`r$$, $CellContext`r$26142$$, 0], Hold[$CellContext`fam$$, $CellContext`fam$26143$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> If[$CellContext`fam$$, Plot[ Evaluate[ Table[ $CellContext`x[$CellContext`t, $CellContext`x0$$, \ $CellContext`r$$], {$CellContext`x0$$, 0.01, 1, 0.1}]], {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> Table[{ Thickness[0.007], ColorData["SunsetColors"][$CellContext`i]}, {$CellContext`i, 0.01, 1, 0.1}], AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}], Plot[ $CellContext`x[$CellContext`t, $CellContext`x0$$, $CellContext`r$$], \ {$CellContext`t, 0, 10}, ImageSize -> {450, 300}, PlotRange -> {0, 1}, PlotStyle -> { Thickness[0.01]}, AxesLabel -> { Style["t", Italic, 12], Style["x(t)", Italic, 12]}]], "Specifications" :> {{{$CellContext`x0$$, 0.25}, 0.01, 1, Appearance -> "Labeled", Enabled -> Dynamic[ Not[$CellContext`fam$$]]}, {{$CellContext`r$$, 0.31000000000000005`}, -2, 2, Appearance -> "Labeled"}, {{$CellContext`fam$$, True, "show family of curves"}, { True, False}}}, "Options" :> {}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{494., {214., 219.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`x[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`x0, Blank[]], Pattern[$CellContext`r, Blank[]]] := 1/(1 + (1/$CellContext`x0 - 1) Exp[(-$CellContext`r) $CellContext`t])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellID->94026042] }, Open ]], Cell["", "DetailsSection"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[" Resize Images"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"ResizeImages"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Rotate and Zoom in 3D"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"RotateAndZoomIn3D"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Drag Locators"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"DragLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Create and Delete Locators"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"CreateAndDeleteLocators"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Slider Zoom"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"SliderZoom"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Gamepad Controls"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"GamepadControls"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Automatic Animation"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"AutomaticAnimation"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[" Bookmark Animation"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], ActionDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection"], Cell["logistic growth curve", "SearchTerms", CellID->870164994], Cell["Pierre Verhulst", "SearchTerms", CellID->208354476], Cell["Verhulst model", "SearchTerms", CellID->41927270] }, Open ]], Cell[CellGroupData[{ Cell["", "RelatedLinksSection"], Cell[TextData[ButtonBox["Logistic Equation", BaseStyle->"Hyperlink", ButtonData->{ URL["http://mathworld.wolfram.com/LogisticEquation.html"], None}]], "RelatedLinks", CellChangeTimes->{ 3.35696210375764*^9, {3.3903227836150675`*^9, 3.3903227921150675`*^9}}, CellID->256265685] }, Open ]], Cell[CellGroupData[{ Cell["", "AuthorSection"], Cell[TextData[{ "Contributed by: ", ButtonBox["Jeff Bryant", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=Jeff+Bryant"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=Jeff+Bryant"] }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.3903227947244425`*^9, 3.3903228061619425`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{700, Automatic}, WindowMargins->{{10, Automatic}, {0, 0}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[22547, 560, 310, 8, 70, "ControlSuggestions", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[22860, 570, 677, 16, 70, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"]}, "DragLocators"->{ Cell[23540, 588, 339, 11, 70, "ControlSuggestions", CellTags->"DragLocators"]}, "CreateAndDeleteLocators"->{ Cell[23882, 601, 636, 15, 70, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"]}, "SliderZoom"->{ Cell[24521, 618, 843, 21, 70, "ControlSuggestions", CellTags->"SliderZoom"]}, "GamepadControls"->{ Cell[25367, 641, 303, 8, 70, "ControlSuggestions", CellTags->"GamepadControls"]}, "AutomaticAnimation"->{ Cell[25673, 651, 1411, 31, 70, "ControlSuggestions", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[27087, 684, 881, 21, 70, "ControlSuggestions", CellTags->"BookmarkAnimation"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 29431, 766}, {"RotateAndZoomIn3D", 29539, 769}, {"DragLocators", 29648, 772}, {"CreateAndDeleteLocators", 29763, 775}, {"SliderZoom", 29876, 778}, {"GamepadControls", 29981, 781}, {"AutomaticAnimation", 30093, 784}, {"BookmarkAnimation", 30209, 787} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 132, 2, 70, "DemoTitle"], Cell[CellGroupData[{ Cell[747, 29, 33, 0, 70, "InitializationSection"], Cell[783, 31, 404, 14, 70, "Input", CellID->47468422] }, Closed]], Cell[CellGroupData[{ Cell[1224, 50, 29, 0, 70, "ManipulateSection"], Cell[CellGroupData[{ Cell[1278, 54, 3360, 90, 70, "Input"], Cell[4641, 146, 3384, 72, 70, "Output", CellID->289286146] }, {2}]] }, Open ]], Cell[CellGroupData[{ Cell[8071, 224, 36, 0, 70, "ManipulateCaptionSection"], Cell[8110, 226, 511, 15, 70, "ManipulateCaption"] }, Open ]], Cell[CellGroupData[{ Cell[8658, 246, 28, 0, 70, "ThumbnailSection"], Cell[8689, 248, 3436, 73, 70, "Output", CellID->804293742] }, Open ]], Cell[CellGroupData[{ Cell[12162, 326, 28, 0, 70, "SnapshotsSection"], Cell[12193, 328, 3432, 73, 70, "Output", CellID->763501159], Cell[15628, 403, 3375, 73, 70, "Output", CellID->371391241], Cell[19006, 478, 3435, 73, 70, "Output", CellID->94026042] }, Open ]], Cell[22456, 554, 26, 0, 70, "DetailsSection"], Cell[CellGroupData[{ Cell[22507, 558, 37, 0, 70, "ControlSuggestionsSection"], Cell[22547, 560, 310, 8, 70, "ControlSuggestions", CellTags->"ResizeImages"], Cell[22860, 570, 677, 16, 70, "ControlSuggestions", CellTags->"RotateAndZoomIn3D"], Cell[23540, 588, 339, 11, 70, "ControlSuggestions", CellTags->"DragLocators"], Cell[23882, 601, 636, 15, 70, "ControlSuggestions", CellTags->"CreateAndDeleteLocators"], Cell[24521, 618, 843, 21, 70, "ControlSuggestions", CellTags->"SliderZoom"], Cell[25367, 641, 303, 8, 70, "ControlSuggestions", CellTags->"GamepadControls"], Cell[25673, 651, 1411, 31, 70, "ControlSuggestions", CellTags->"AutomaticAnimation"], Cell[27087, 684, 881, 21, 70, "ControlSuggestions", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[28005, 710, 30, 0, 70, "SearchTermsSection"], Cell[28038, 712, 64, 1, 70, "SearchTerms", CellID->870164994], Cell[28105, 715, 58, 1, 70, "SearchTerms", CellID->208354476], Cell[28166, 718, 56, 1, 70, "SearchTerms", CellID->41927270] }, Open ]], Cell[CellGroupData[{ Cell[28259, 724, 31, 0, 70, "RelatedLinksSection"], Cell[28293, 726, 289, 7, 70, "RelatedLinks", CellID->256265685] }, Open ]], Cell[CellGroupData[{ Cell[28619, 738, 25, 0, 70, "AuthorSection"], Cell[28647, 740, 387, 11, 70, "Author"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)