Google+ Badge

Facebook

LogisticEquation.cdf

(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* 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[ 1063, 20] NotebookDataLength[ 10483, 273] NotebookOptionsPosition[ 10813, 260] NotebookOutlinePosition[ 11337, 283] CellTagsIndexPosition[ 11294, 280] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"fun", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "r"}], "}"}], ",", RowBox[{ RowBox[{"(", RowBox[{"r", "*", "x"}], ")"}], "-", RowBox[{"(", RowBox[{"r", "*", RowBox[{"x", "^", "2"}]}], ")"}]}]}], "]"}]}], ";"}]], "Input", \ "PluginEmbeddedContent"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"With", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"points", "=", RowBox[{"FixedPointList", "[", RowBox[{ RowBox[{ RowBox[{"fun", "[", RowBox[{"#", ",", "r"}], "]"}], "&"}], ",", "x0", ",", "50", ",", RowBox[{"SameTest", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"#1", "-", "#2"}], "]"}], "<", "1*^-6"}], "&"}], ")"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"GraphicsGrid", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"fun", "[", RowBox[{"x", ",", "r"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", "0.0", ",", " ", "1.0"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{"Red", ",", " ", "Dashed"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", RowBox[{"fun", "[", RowBox[{"0.5", ",", " ", "r"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{"points", ",", " ", "2", ",", " ", "1"}], "]"}], ",", " ", RowBox[{"PlotStyle", " ", "\[Rule]", RowBox[{"{", RowBox[{"Gray", ",", " ", RowBox[{"Opacity", "[", "0.5", "]"}]}], "}"}]}], ",", " ", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "1.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", " ", "1.0"}], "}"}]}], "}"}]}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"ListPolarPlot", "[", RowBox[{ RowBox[{"Partition", "[", RowBox[{ RowBox[{"Riffle", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"2", "*", "Pi", "*", "#"}], "&"}], ",", "points"}], "]"}], ",", " ", "1.0"}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"PlotMarkers", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", "Small"}], "}"}]}], ",", RowBox[{"PolarTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "4"}], ",", "0.125"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Pi", "/", "2"}], ",", "0.25"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"3", RowBox[{"Pi", "/", "4"}]}], ",", "0.375"}], "}"}], ",", RowBox[{"{", RowBox[{"Pi", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.25", "Pi"}], ",", "0.625"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.5", "Pi"}], ",", "0.75"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.75", "Pi"}], ",", "0.875"}], "}"}]}], "}"}], ",", " ", "None"}], "}"}]}], ",", RowBox[{"PolarAxes", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"ListPlot", "[", RowBox[{"points", ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}], ",", " ", "SpanFromLeft"}], "}"}]}], " ", "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Full"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"r", ",", "2"}], "}"}], ",", "0.0", ",", "4.0", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "0.5"}], "}"}], ",", " ", "0.0", ",", " ", "1.0", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]], "Input", "PluginEmbeddedContent"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`r$$ = 2, $CellContext`x0$$ = 0.806, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`r$$], 2}, 0., 4.}, {{ Hold[$CellContext`x0$$], 0.5}, 0., 1.}}, Typeset`size$$ = { 360., {214., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`r$30698$$ = 0, $CellContext`x0$30699$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`r$$ = 2, $CellContext`x0$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`r$$, $CellContext`r$30698$$, 0], Hold[$CellContext`x0$$, $CellContext`x0$30699$$, 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" :> With[{$CellContext`points$ = FixedPointList[$CellContext`fun[#, $CellContext`r$$]& , \ $CellContext`x0$$, 50, SameTest -> (Abs[# - #2] < Rational[1, 1000000]& )]}, GraphicsGrid[{{ Show[ Plot[ $CellContext`fun[$CellContext`x, $CellContext`r$$], \ {$CellContext`x, 0., 1.}, PlotStyle -> {Red, Dashed}, PlotRange -> {{0., 1.}, {0., $CellContext`fun[0.5, $CellContext`r$$]}}], ListLinePlot[ Partition[$CellContext`points$, 2, 1], PlotStyle -> {Gray, Opacity[0.5]}, PlotMarkers -> {Automatic, Small}, PlotRange -> {{0., 1.}, {0., 1.}}]], { ListPolarPlot[ Partition[ Riffle[ Map[2 Pi #& , $CellContext`points$], 1.], 2], PlotMarkers -> {Automatic, Small}, PolarTicks -> {{{0, 0}, {Pi/4, 0.125}, {Pi/2, 0.25}, { 3 (Pi/4), 0.375}, {Pi, 0.5}, {1.25 Pi, 0.625}, { 1.5 Pi, 0.75}, {1.75 Pi, 0.875}}, None}, PolarAxes -> True, PlotRange -> All]}}, { ListPlot[$CellContext`points$, PlotRange -> {{0, 50}, {0, 1}}, Joined -> True], SpanFromLeft}}, AspectRatio -> Full]], "Specifications" :> {{{$CellContext`r$$, 2}, 0., 4., Appearance -> "Labeled"}, {{$CellContext`x0$$, 0.5}, 0., 1., Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{405., {272., 277.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", "PluginEmbeddedContent"] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", "PluginEmbeddedContent"] }, WindowSize->{708., 914.53}, Visible->True, AuthoredSize->{708., 914.53}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1463, 33, 375, 13, 13, "Input"], Cell[CellGroupData[{ Cell[1863, 50, 5830, 142, 320, "Input"], Cell[7696, 194, 3028, 61, 551, "Output"] }, Open ]], Cell[10739, 258, 70, 0, 31, "Input"] } ] *) (* End of internal cache information *) (* NotebookSignature YupHKBaDP9H63DgoFuTWSzm0 *)

No comments: