In[]:=
NestList[x|->ax(1-x),0.345,20]
Out[]=
$Aborted
In[]:=
ListPlot[Flatten[Table[{a,#}&/@Drop[NestList[Compile[x,ax(1-x)],N[1/3],300],50],{a,0,4,.01}],1],Frame->True,FrameLabel->{"a","x"}]
Out[]=
In[]:=
Compile[x,ax(1-x)]
Out[]=
CompiledFunction
In[]:=
Table[Labeled[ListPlot[Table[MapIndexed[{#1,-First[#2]}&,NestList[Compile[x,ax(1-x)],x0,70]],{x0,.02,.98,.02}],PlotRange->All,Frame->True,FrameTicks->{Automatic,None},AspectRatio->1/2,PlotStyle->PointSize[.01]],Text[StringTemplate["a = ``"][a]]],{a,{2.9,3.1}}]
Out[]=
,
a = 2.9 |
a = 3.1 |
In[]:=
22
Out[]=
22
In[]:=
$Version
Out[]=
13.3.0 for Mac OS X x86 (64-bit) (June 8, 2023)
In[]:=
RulePlot[CellularAutomaton[{2162228682366763273753403072270198430440647721517447614461649045751431869327326683773130,5,1}]]
Out[]=