{{3,2}}{{5,2}},4
{{3,2}}{{5,2}},4
Select[Union[Table[RandomWolframModelRule[{{3,2}}{{5,2}},4],50]],NewVerticesQ]
In[]:=
Out[]=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
In[]:=
Out[]=
WolframModel[{{1,1},{2,1},{3,3}}{{2,1},{2,2},{3,3},{4,1},{4,2}},Table[0,3,2],20]
In[]:=
Out[]=
Graph[Rule@@@%["FinalState"]]
In[]:=
Out[]=
Graph[Rule@@@WolframModel[{{1,1},{2,1},{3,3}}{{2,1},{2,2},{3,3},{4,1},{4,2}},Table[0,3,2],40,"FinalState"]]
In[]:=
Out[]=
Another rule
Another rule
RulePlot[WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}}]]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}}],VertexLabelsAutomatic]
In[]:=
Out[]=
WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}},Table[0,3,2],20]
In[]:=
Out[]=
Graph[Rule@@@%["FinalState"]]
In[]:=
Out[]=
WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}},Table[0,3,2],40]
In[]:=
Out[]=
Graph[Rule@@@%["FinalState"]]
In[]:=
Out[]=
Length/@%140["StatesList"]
In[]:=
{3,5,7,9,13,17,21,25,29,35,41,47,55,63,73,83,95,109,123,139,157,177,201,227,257,289,327,367,413,465,521,587,659,741,831,935,1049,1179,1321,1485,1663}
Out[]=
Differences[%]
In[]:=
{2,2,2,4,4,4,4,4,6,6,6,8,8,10,10,12,14,14,16,18,20,24,26,30,32,38,40,46,52,56,66,72,82,90,104,114,130,142,164,178}
Out[]=
Differences[%]
In[]:=
{0,0,2,0,0,0,0,2,0,0,2,0,2,0,2,2,0,2,2,2,4,2,4,2,6,2,6,6,4,10,6,10,8,14,10,16,12,22,14}
Out[]=
Ratios[%142]//N
In[]:=
{1.66667,1.4,1.28571,1.44444,1.30769,1.23529,1.19048,1.16,1.2069,1.17143,1.14634,1.17021,1.14545,1.15873,1.13699,1.14458,1.14737,1.12844,1.13008,1.1295,1.12739,1.13559,1.12935,1.13216,1.12451,1.13149,1.12232,1.12534,1.12591,1.12043,1.12668,1.12266,1.12443,1.12146,1.12515,1.12193,1.12393,1.12044,1.12415,1.11987}
Out[]=
ListLinePlot[%]
In[]:=
Out[]=
%140["CausalGraph"]
In[]:=
Out[]=
Graph3D[%]
In[]:=
Out[]=
LayeredGraphPlot[%147]
In[]:=
Out[]=
New explorer
New explorer
Select[Union[Table[RandomWolframModelRule[{{3,2}}{{5,2}},4],50]],NewVerticesQ]
In[]:=
Out[]=
WolframModelExplorer1[%161,Automatic,10,4]
In[]:=
Out[]=
WolframModelExplorer1[{{{1,2},{1,2},{1,3}}{{1,4},{2,1},{2,3},{2,4},{4,3}},{{1,2},{1,2},{3,1}}{{2,4},{3,4},{4,1},{4,1},{4,3}},{{1,1},{1,2},{3,3}}{{1,1},{3,1},{3,2},{4,1},{4,4}}},Automatic,20,15]
In[]:=
Out[]=
Another rule
Another rule
NOTE: this is an LHS disconnected rule.....
WolframModel[{{{1,1},{1,2},{3,3}}{{1,1},{3,1},{3,2},{4,1},{4,4}}},Table[0,3,2],15]
In[]:=
Out[]=
HypergraphPlot[%["FinalState"]]
In[]:=
Out[]=
%%["CausalGraph"]
In[]:=
Out[]=
LayeredGraphPlot[%]
In[]:=
Out[]=
HypergraphPlot/@%169["StatesList"]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,1},{1,2},{3,3}}{{1,1},{3,1},{3,2},{4,1},{4,4}}]]
In[]:=
Out[]=
RulePlot[WolframModel[{{1,1},{1,2},{3,3}}{{1,1},{3,1},{3,2},{4,1},{4,4}}],VertexLabels->Automatic]
In[]:=
Out[]=
HypergraphPlot[#,VertexLabelsAutomatic]&/@Take[%169["StatesList"],6]
In[]:=
Out[]=
GraphPlot[Rule@@@#,PlotTheme"IndexLabeled",VertexSizeMedium]&/@Take[%169["StatesList"],6]
In[]:=
Out[]=
GraphPlot[Rule@@@#,PlotTheme"IndexLabeled",VertexSize.5]&/@Take[%169["StatesList"],6]
In[]:=
Out[]=
Select[Union[Table[RandomWolframModelRule[{{3,2}}{{5,2}},4],50]],NewVerticesQ]
In[]:=
Out[]=
WolframModelExplorer1[%,Automatic,10,4]
In[]:=
Out[]=
WolframModelExplorer1[{{{1,1},{1,2},{3,2}}{{1,4},{2,3},{3,1},{3,3},{4,1}},{{1,1},{2,1},{2,3}}{{1,3},{2,2},{3,1},{3,4},{4,1}},{{1,2},{1,3},{2,1}}{{1,2},{3,2},{3,4},{4,1},{4,3}}},Automatic,25,10]
In[]:=
Out[]=