In[]:=
x0=0.3;​​f[x_]:=3.2*x*(1-x);​​iterates=NestList[f,x0,40];​​Show[Plot[{f[x],x},{x,0,1}],Graphics[Line[Prepend[Riffle[Transpose[{iterates,iterates}],Partition[iterates,2,1]],{x0,0}]]]]
Out[]=
0.2
0.4
0.6
0.8
1.0
0.2
0.4
0.6
0.8
1.0
In[]:=
ListPlot[ParallelTable[Thread[{r,Nest[r#(1-#)&,Range[0,1,0.001],1000]}],{r,0,2.5,0.02}],PlotStylePointSize[0.005]]
KernelConfiguration
:KernelConfiguration is not currently supported in the Wolfram Cloud.
KernelConfiguration
:Local is not a valid kernel specification.
ParallelTable
:No parallel kernels available; proceeding with sequential evaluation.
Out[]=
0.5
1.0
1.5
2.0
2.5
0.1
0.2
0.3
0.4
0.5
0.6