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
gk2r2
In[]:=
Table[Length[VertexOutComponent[gk2r2,{{20,16847199},{276,285295007},{272,16847199}},{i}]],{i,20}]
Out[]=
{87,73,112,227,335,443,412,277,116,29,2,0,0,0,0,0,0,0,0,0}
In[]:=
ListStepPlot[%]
Out[]=
In[]:=
VertexOutComponent[gk2r2,{{20,16847199},{276,285295007},{272,16847199}},{1}]
Out[]=
{{{2519337364,4294967295}},{{312094132,4294967295}},{{1523068340,4294967295}},{{1645785444,4286578687}},{{2999618996,4294967295}},{{1357155220,4294967295}},{{1516283316,4286578687}},{{3256365412,4294967295}},{{509248916,4292870143}},{{1144271652,2147483647}},{{1115064676,4294967295}},{{1424786324,4294967295}},{{3501073844,4294967295}},{{1954187156,4294967295}},{{79344420,2147483647}},{{3672247732,4294705151}},{{1390585236,4294967295}},{{1547077524,4294967295}},{{1357809556,4294967295}},{{3672810900,4294967295}},{{911869364,4294967295}},{{3670683060,4294967295}},{{2028864916,4294967295}},{{1144697636,4294967295}},{{1048868,156317055},{16788,285299167},{1049892,3507586495},{268452116,285299167}},{{1180076388,4294967295}},{{1510616500,4292870143}},{{1382459316,4294967295}},{{110270820,2147483647}},{{2186842468,4294967295}},{{2993850260,4294967295}},{{3233684324,4294967295}},{{1889699220,4260888575}},{{3663734196,4294967295}},{{1549313428,4294705151}},{{110672164,2145255423}},{{2086315924,4294705151}},{{983738260,4294967295}},{{3123357076,4294967295}},{{1387177908,4290772991}},{{2788594532,4294967295}},{{2597989812,4294967295}},{{1754962276,4294967295}},{{1717045604,2145255423}},{{1951827860,4294967295}},{{1679432036,2147483647}},{{1380593076,4292870143}},{{1476690836,4187478015}},{{1478922164,4294967295}},{{2999584180,4294967295}},{{1357555604,4294967295}},{{1651902820,2147483647}},{{2457110420,4294967295}},{{1948558228,4294967295}},{{1386655156,4294967295}},{{375039380,4292870143}},{{1484301716,3758096383}},{{1386915220,4294967295}},{{3492554676,4294967295}},{{1487841172,4294967295}},{{2060101556,4294967295}},{{2191309156,4294967295}},{{3192521108,4294967295}},{{1919329684,4294967295}},{{3864531812,4294967295}},{{2061411732,4294967295}},{{1915005844,4294967295}},{{1142602532,4294967295}},{{108431716,4294967295}},{{3624675252,4294967295}},{{1121489252,3758096383}},{{2020214164,4294967295}},{{3193611668,4294967295}},{{2054989716,4294967295}},{{1522970036,4294966783}},{{1919583636,4294967295}},{{2589230996,4294967295}},{{1886037396,4294967295}},{{1915135892,4294967295}},{{2551490452,4294967295}},{{1914348948,4294967295}},{{4201293204,4294967295}},{{1184248100,4294967295}},{{3157960084,4294966783}},{{1855099236,4294967295}},{{3672769940,4294967295}},{{7637860,2147483647}}}
In[]:=
Length/@%307
Out[]=
{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}
In[]:=
$LifetimeData[2,2,"99%"][First[#]]&/@%307
Out[]=
{13,38,28,20,215,24,11,23,12,14,16,19,14,18,18,17,29,14,10,27,38,21,17,16,2,18,12,15,14,23,14,12,8,12,12,11,11,17,38,12,12,15,17,11,17,14,14,7,14,26,24,18,14,24,18,14,11,24,14,11,13,10,20,24,10,13,19,18,33,13,20,24,21,27,11,24,13,29,10,39,14,27,46,17,17,38,14}
In[]:=
BoxWhiskerChart[Table[$LifetimeData[2,2,"99%"][First[#]]&/@VertexOutComponent[gk2r2,{{20,16847199},{276,285295007},{272,16847199}},{i}],{i,0,13}],AspectRatio->.3]
Out[]=
In[]:=
DistributionChart[Table[$LifetimeData[2,2,"99%"][First[#]]&/@VertexOutComponent[gk2r2,{{20,16847199},{276,285295007},{272,16847199}},{i}],{i,0,13}],AspectRatio->.3]
Out[]=
In[]:=
Table[Labeled[ArrayPlot[CellularAutomaton[{#[[1,1]],2,2},{{1},0},$LifetimeData[2,2,"99%"][First[#]]+2],ImageSize->If[$LifetimeData[2,2,"99%"][First[#]]<5,10,1.7($LifetimeData[2,2,"99%"][First[#]]+3)^.7]],Text[$LifetimeData[2,2,"99%"][First[#]]]]&@First[TakeLargestBy[VertexOutComponent[gk2r2,{{20,16847199},{276,285295007},{272,16847199}},{i}],$LifetimeData[2,2,"99%"][First[#]]&,1]],{i,0,11}]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
1 |
215 |
117 |
166 |
107 |
107 |
150 |
164 |
307 |
118 |
76 |
18 |
In[]:=
$LifetimeData[2,2,"99%"][{20,16847199}]
Out[]=
1
In[]:=
Labeled[ArrayPlot[CellularAutomaton[{#[[1,1]],2,2},{{1},0},$LifetimeData[2,2,"99%"][First[#]]+2],ImageSize->{Automatic,4$LifetimeData[2,2,"99%"][First[#]]}],Text[$LifetimeData[2,2,"99%"][First[#]]]]&/@TakeSmallestBy[Select[VertexList[gk2r2],VertexOutDegree[gk2r2,#]==0&],$LifetimeData[2,2,"99%"][First[#]]&,15]
Out[]=
,
,
,
,
,
,
,
,
,
,
,
,
,
,
6 |
9 |
9 |
9 |
9 |
9 |
9 |
9 |
9 |
10 |
10 |
10 |
10 |
10 |
10 |
In[]:=
Length[%]
Out[]=
875
In[]:=
VertexCount[gk2r2]
Out[]=
2116
In[]:=
GraphicsRow[Labeled[ArrayPlot[CellularAutomaton[{#[[1,1]],2,2},{{1},0},$LifetimeData[2,2,"99%"][First[#]]+2],ImageSize->{Automatic,4($LifetimeData[2,2,"99%"][First[#]]+3)^.7}],Text[1+$LifetimeData[2,2,"99%"][First[#]]]]&/@TakeLargestBy[Select[VertexList[gk2r2],VertexOutDegree[gk2r2,#]==0&],$LifetimeData[2,2,"99%"][First[#]]&,13]]
Out[]=
In[]:=
gk2r2x=WeaklyConnectedGraphComponents[Import[StringJoin[NotebookDirectory[],"FromBrad/GraphData/k2r2ReducedGraph.wxf"]],AspectRatio->2/3];