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
lifetimes
lifetimes
In[]:=
$LifetimeData[2,2,"Symmetric"]=;
data model
data model
In[]:=
datalt=IterationData[{2,2},$LifetimeData[2,2,"Symmetric"],"Symmetric"->True];
generate data:
generate data:
In[]:=
data2500=ParallelTable[SeedRandom[2424+i];NestList[IterateMutation[datalt],{0,{0,65815}},2500],{i,500}];
depict one:
depict one:
In[]:=
oneEvo=data2500[[1]];
In[]:=
uniques=First/@Split[Last/@oneEvo]
Out[]=
{{0,65815},{139473252,3646010879},{139469092,424769023},{139473252,3646010879},{749738340,2113011199},{70261092,494108159},{749738340,2113011199},{70261092,494108159},{649615716,4294704639},{615536996,2147483647}}
In[]:=
quickDepict[{2,2},#,$LifetimeData[2,2,"Symmetric"][#]]&/@uniques
Out[]=
,
,
,
,
,
,
,
,
,
Fix labeling
In[]:=
lftdata=KeyMap[First,$LifetimeData[2,2,"Symmetric"]];
In[]:=
alldata=Transpose[Outer[Function[Count[#1,#2]/500.],Transpose[data2500[[All,All,2,1]]],Keys[$LifetimeData[2,2,"Symmetric"]][[All,1]],1]];
In[]:=
allpicts=quickDepict[{2,2},{#,0},lftdata[#]]&/@First/@Keys[$LifetimeData[2,2,"Symmetric"]];
In[]:=
ListStepPlot[MapThread[Callout,{alldata,allpicts}],PlotRange->All]
Out[]=
In[]:=
ListStepPlot[MapThread[If[Last[#1]>.05,Callout[#1,#2],#1]&,{alldata,allpicts}],ImageSize->800,PlotRange->All]
Out[]=
In[]:=
StackedListPlot[Transpose[Outer[Function[Count[#1,#2]],Transpose[data3000[[All,All,2,1]]],Keys[$LifetimeData[2,2,"Symmetric"]][[All,1]],1]],PlotRange->All]
Out[]=
$Aborted
In[]:=
Transpose[Outer[Function[Count[#1,#2]],Transpose[data3000[[All,1;;100,2,1]]],Keys[$LifetimeData[2,2,"Symmetric"]][[All,1]],1]]
In[]:=
StackedListPlot,InterpolationOrder->0
Out[]=
In[]:=
StackedListPlot[MapThread[Callout,{Transpose[Outer[Function[Count[#1,#2]],Transpose[data3000[[All,1;;100,2,1]]],Keys[$LifetimeData[2,2,"Symmetric"]][[All,1]],1]],quickDepict[{2,2},{#,0},lftdata[#]]&/@First/@Keys[$LifetimeData[2,2,"Symmetric"]]}],InterpolationOrder->0]
Out[]=
Build up
Build up
Foliations
Foliations