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["MultiwaySystem"][{"BA""AB"},{"BBAAA"},12,"EvolutionEventsGraph"]
Out[]=
In[]:=
TransitiveClosureGraph[%]
Out[]=
Transitive Percolation
Transitive Percolation
In[]:=
Range[10]
Out[]=
{1,2,3,4,5,6,7,8,9,10}
In[]:=
RandomVariate[PoissonDistribution[10]]
Out[]=
12
{u,v}
In[]:=
Table[RandomReal[{0,1},2],12]
Out[]=
{{0.495492,0.320783},{0.557509,0.455764},{0.311316,0.699236},{0.850816,0.636443},{0.588183,0.900362},{0.527344,0.201527},{0.704206,0.256578},{0.350039,0.656963},{0.241395,0.0868937},{0.703093,0.753115},{0.410354,0.0337528},{0.502144,0.728207}}
In[]:=
Graphics[Point[RotationMatrix[45Degree].#&/@Sort[Table[RandomReal[{0,1},2],50],Function[{p,q},p[[1]]<q[[1]]&&p[[2]]<q[[2]]]]]]
Out[]=
Outer[Function[{p,q},p[[1]]<q[[1]]&&p[[2]]<q[[2]]],#,#,1]&[Table[RandomReal[{0,1},2],20]]
In[]:=
ListLinePlot[%]
Out[]=
In[]:=
RandomGraph[{50,70}]
Out[]=
In[]:=
growthStep[graph_,probability_]:=With[{newVertex=Max[VertexList[graph],0]+1},Graph[Append[VertexList[graph],newVertex],Join[EdgeList[graph],If[RandomReal[]<probability,#newVertex,Nothing]&/@VertexList[graph]]]]
In[]:=
Framed/@NestList[growthStep[#,.2]&,Graph[{12}],10]
Out[]=
In[]:=
NestList[growthStep[#,.2]&,Graph[{12}],10]
Out[]=
Midpoint scaling dimension
Midpoint scaling dimension