WOLFRAM NOTEBOOK

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
Argument count: 1
Argument types:
{_Real}
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[]=
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.