Discrete Dynamical System: Exponential Growth/Decay.  (Subscript[x, t+1]) = r (Subscript[x, t])

Manipulate["(Subscript[x, t + 1]) = r (Subscript[x, t]) "
Column[{
Grid[{{"t",0,1,2,3,4,5,6,7},Join[{Subscript["x","t"]},NestList[r # &,x0,7]]},Frame->All],
Row[{
ListPlot[
      If[ drugi,
     {NestList[r # &,x0,maxT],
     NestList[r # &,If[x0+roz<0,0,If[x0+roz>1,1,x0+roz],x0+roz],maxT]},
       NestList[r # &,x0,maxT]] ,
      PlotRange->{0,1},
      PlotStyle->{Directive[RGBColor[.6,.73,.36], PointSize[0.013]] ,If[drugi,RGBColor[1,.47,0], RGBColor[.6,.73,.36]]},
     DataRange->{0,maxT},
     ImageSize->{600,350},ImagePadding->30,AxesLabel -> {Style[t,Large,Bold,Blue],Style[Subscript["x","t"],Large,Bold,Blue]}
  ],
Show[Plot[{r x,Nest[r# &, x,k],x}, {x,0,1}, PlotStyle -> {Gray,Blue},Frame->True,PlotRange-> {{0,1},{0,1}},AspectRatio -> 1],Graphics[Flatten[MapIndexed[{Hue[#2[[1]] / n],Line[{{#,If[#==x0,0,#]},{#,r #}}],
Line[{{#, r #},{r #, r #}}]}  & ,NestWhileList[r # &, x0, #1 ≠ r #2 &, 2, n]]]],ImageSize->{500,400},ImagePadding->{{20,10},{30,20}}
]}]
},Alignment->Center],
{{r,1.1,"parameter r"},0,2,0.01, Appearance->"Labeled"},
{{x0,0.3,"initial value (Subscript[x, 0])"},0,1,0.01, Appearance->"Labeled"},
{{maxT, 50, "end time"}, 10, 100, 1, Appearance->"Labeled"},
{{drugi, False, "second solution?"}, {True, False}},
{{roz, 0, "difference h between initial values"}, -x0, 1-x0, 0.01, Appearance->"Labeled"},
{{n,100, "number of cobweb iterations"},1,200,1, Appearance -> "Labeled"},
{{k,1,"order of iterate in cobweb diagram"},{1,2,3,4,5,6}, ControlType -> Setter}
]

BASED ON THE NOTEBOOK:

"Discrete Logistic Equation" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/DiscreteLogisticEquation/

Contributed by: Marek Bodnar

After work by: Phil Ramsden

Adapted by: Christopher Strickland (CSU 2010)