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 »
WOLFRAM NOTEBOOK
In[]:=
ResourceFunction["InteractiveListSelector"][Table[With[{p=.55},SeedRandom[23424+i];ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},300],200]]]->i,{i,10}]]
Out[]=
In[]:=
ResourceFunction["InteractiveListSelector"][Table[With[{p=.54},SeedRandom[23424+i];ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},30],20]]]->i,{i,30}]]
Out[]=
In[]:=
GraphicsRow[Table[With[{p=.54},SeedRandom[23424+i];ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,CenterArray[{1},30],29]]],{i,{12,14,23,15,16,28}}]]
Out[]=
In[]:=
GraphicsRow[Table[SeedRandom[23424];Labeled[ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,RandomChoice[{p,1-p}->{1,0},300],200]],Style[StringTemplate["p = ``"][p],"Text",Gray,Italic]],{p,0.3,0.7,.1}]]
Out[]=
In[]:=
GraphicsRow[Table[SeedRandom[23424];Labeled[ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,RandomChoice[{p,1-p}->{1,0},250],200]],Style[StringTemplate["p = ``"][p],"Text",Gray,Italic]],{p,0.3,0.7,.1}]]
Out[]=
In[]:=
GraphicsRow[Table[SeedRandom[23424];Labeled[ArrayPlot[NestList[(If[Total[#]>=1&&RandomReal[]<p,1,0]&/@Partition[RotateRight[#],3,1,1])&,RandomInteger[1,250],200]],Style[StringTemplate["p = ``"][p],"Text",Gray,Italic]],{p,0.3,0.7,.1}]]
Out[]=
In[]:=
ListLinePlotTablen1000,Last[[n]]1000,{n,1000},Frame->True,FrameLabel->{"filling probability","survival probability"}
Random Walk
Random Walk
Empirical Random Walks
Empirical Random Walks